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Après avoir conçu TURBO-Pascal, Philippe KAHN a créé autour de ce programme 
toute une famille de logiciels complémentaires, qui permet de tout faire ou presque ; 
depuis l’enseignement sans peine du langage Pascal aux jeux, en passant par le dessin, 
la construction sur mesure de traitement de texte, de gestion de fichiers, etc. 


TURBO Pascal « 625 F H.T. (à partir de) 

Avec plus de 400.000 utilisateurs dans le monde 
entier, TURBO Pascal est le compilateur le plus 
utilisé. Vous disposez en un seul programme 

d'un environnement complet, éditeur et compilateur, 
pour programmer en Pascal. TURBO Pascal compile 
directement en mémoire pour plus de rapidité. 


Puissance 

Le langage Pascal est actuellement un des langages 
les plus performants sur micro-ordinateurs. 

Ses applications sont nombreuses : gestion, calculs 
scientifiques, logiciels systèmes, graphisme, jeux, 
intelligence artificielle. TURBO Pascal a été retenu 
dans le cadre de l'opération « Informatique Pour 
Tous » comme support d'enseignement du langage 
Pascal dans les lycées et les universités. Un gage 
de qualité et de sérieux. Les machines 16 bits 
disposent de deux options : l'option 87 gère 

le microprocesseur 8087 pour augmenter la vitesse 
et la précision dans les calculs ; l'option BCD utilise 
la représentation décimale codée binaire pour 
éliminer les erreurs d'arrondi. 

La version IBM comporte en plus des routines 
graphiques et une tortue. 


Portabilité 

TURBO Pascal tourne sur un grand nombre de 
machines, sous MS/PC-DOS, CP/M-80/86, depuis 
l'Amstrad jusqu'à l'IBM AT. 

Prix 

TURBO Pascal offre le meilleur rapport qualité/prix 
pour 625 F H.T. (sous CP/M-80) ou 800 F H.T. 
(PC/MS-DOS) vous disposez d'un éditeur plein 
écran et d'un compilateur Pascal complet. Ces prix 
comprennent le manuel de 350 pages en français. 
La disquette comprend de plus le code source de 
MicroCalc, petit tableur écrit en TURBO Pascal. 


renseignements et 
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CLECLL 
FRACIEL 


IMPORTATEUR 
EXCLUSIF DE 


37000 Tours 


Pour vos commandes, 
documentation gratuite ; 


ou pour contacter notre 
assistance téléphonique : 


42, rue des Prébendes 


TURBO-Tutor - 350 F H.T. 

Turbo-Tutor est un cours d’auto-formation à TURBO 
Pascal. Les débutants comme les programmeurs 
expérimentés y trouveront une aide précieuse dans 
l'écriture de leurs programmes Pascal. Ce cours 
comprend un manuel de 200 pages en français 

et une disquette avec le code source de tous 

les exemples. 


TURBO-Graphix - 675 F-H.T. 

TURBO-Graphix est une librairie complète de routines 
graphiques haute résolution pour IBM et 
compatibles. Ces routines vous permettent le tracé 
de figures géométriques, de courbes, de polygones. 
Elles comprennent également tous les outils pour 
gérer des fenêtres. En anglais. Manuel en français 
disponible fin 85. 


TURBO-Toolbox - 625 F H.T. 
TURBO-Toolbox comprend trois utilitaires 
constamment utilisés par les développeurs : une 
gestion de fichier ISAM (par la méthode des arbres 
B+), une routine générale de tri et un programme 
générant un module d'installation pour les 
programmes écrits avec TURBO Pascal. Si vous 
développez très souvent des applications, ces outils 
performants vous feront gagner un temps précieux. 
Ils sont fournis sous forme de routines TURBO 
Pascal, utilisables et modifiables à volonté 


TURBO-Gameworks - 700 F HT. 

Echec, Bridge et Go-Moku. 

Découvrez les secrets des jeux les plus performants 
sur micro-ordinateurs. Ces jeux sont compilés et 
prêts à vous procurer de nombreuses heures de 
détente (ou de nuits blanches). Mais vous disposez 
également du code source sur votre disquette. Grâce 
aux sources et au manuel, la théorie des jeux 
n'aura plus de secrets pour vous. C'est également 
une façon agréable d'apprendre à programmer en 
Pascal. En anglais. Version française disponible 
début 86. Pour IBM et compatibles avec TURBO 
Pascal 3.0. 


TURBO Editor - 700 F H.T. 

Construisez votre propre traitement de texte ou 
incorporez-le dans vos programmes. Avec TURBO 
Editor, vous avez : le code source prêt à être 
compilé, un traitement de texte complet,un manuel de 
200 pages indiquant comment intégrer les procédures 
et les fonctions de l'éditeur dans vos programmes. 
TURBO Editor permet le fenêtrage. Vous pouvez 

ainsi éditer plusieurs documents ou plusieurs parties 
du même document en même temps. Pour IBM et 


compatibles avec TURBO Pascal 3.0. t 
« 
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La cassette et la disquette n° 1 contiennent les programmes parus dans CPC 1 et 2. 
La cassette et la disquette n° 2 contiennent les programmes parus dans CPC 3 et 4. 


ous les programmes parus 

dans CPC sur une disquette 
ou sur une cassette pour ne pas 
perdre de temps à les saisir. 
L'idée n'est-elle pas bonne ? Sur 
la même disquette (ou cassette) 
seront regroupés les programmes 
parus dans deux numéros suc- 

- cessifs de CPC. 

Le tarif, port compris, 110 F pour 
la disquette ou 85 F pour la cas- 
sette pour les abonnées. JOIN- 
DRE IMPERATIVEMENT VOTRE 
ETIQUETTE D'ABONNE AU CHE- 
QUE DE COMMANDE. 
Pour les non-abonnés, le prix est 
de 140 F (D) ou 110 F (C}), tou- 
jours port compris. 
Passez vos commandes directe- 
ment aux Editions SORACOM. 
Pas de contre-remboursement. 
Les programmes sont livrés tels 
que publiés dans la revue et n’ont 
subi aucune modification. À vous 
de les adapter à vos besoins si 
vous le désirez. 


BON DE COMMANDE 


(valable jusqu'à épuisement des stocks) 


Abonné 


Adresse 


Code Postal 
Entourez le numéro du disque choisi ou de la revue. 


6,50 F pour un ou deux numéros de CPC. 
Franco pour CPC DISC et CASSETTES. 


Ci-joint, chèque bancaire ou postal de F. 


Frais de port : 


Non-abonné 


S'ABONNER, C'EST : 


— recevoir la revue tranquillement à domicile, 

— bénéficier de prix avantageux par souscription comme noûs venons de le faire 
par mailing en octobre (gain : 45 francs !), 

— bénéficier de prix sur les disquettes et maintenant les cassettes, 

— recevoir l’auto-collant CPC, 

— bénéficier de notre aide dans de nombreux domaines. 


Alors, n'hésitez pas. Abonnez-vous... 


CPC, La Revue des Utilisateurs d'Amstrad 


ABONNEMENT POUR UN AN — 11 NUMÉROS : 175 F 
6 MOIS : 99 F — D'ESSAI 3 MOIS : 50 F 
Tarif avion : + 120 F 


Ci-joint un chèque {libellé à l'ordre des Editions SORACOM) 
d'un montant de francs. 


Prénom 


PAS D'ABONNEMENT RETROACTIF — DEBUT ABONNEMENT=NUMERO SUIVANT LA RECEPTION DU BULLETIN 


Ci-joint un chèque libellé à l'ordre de : Éditions SORACOM. : 
Retournez le(s) bulletin(s) ou une photocopie à : 
Éditions SORACOM — Service Abonnements — Le Grand Logis — 10, Avenue du Général de Gaulle — 35170 BRUZ. 


ce Fe e jeu complètement graphique. 
rouvez avec moi l'ambiance des grandes rencontres 


où dans un Stade plein à craquer les banderoles 

s agitent alors que les joueurs se battent 
farouchement. 
DFARÉ vous voulez vivre ou revivre ces grands moments. 
chargez vite FOOT et soyez le meilleur... 
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Les articles et programmes que nous publions 
dans ce numéro bénéficient pour une grande part 
du droit d'auteur. De ce fait, ils ne peuvent être 
reproduits, imités, contrefaits, même partielle- 
ment sans l'autorisation écrite de la Société 
SORACOM et de l'auteur concerné. Les diffé- 
rents montages présentés ne peuvent être réali- 
sés que dans un but privé ou scientifique mais 
non commercial. Ces réserves concernent les 
logiciels publiés dans la revue. 


ATTENTION, DANGER ! 


MSTRAD, c'est bien beau, ca marche et ça peut rappor- 


ter gros ! D'accord, mais attention aux embüches. 


Les Associations et les clubs naissent çà et là. L'idée de 


faire une exposition arrive vite parfois avec l'idée de ‘‘faire un 


peu d'argent’. 


Seulement n'organise pas une exposition qui veut, et les profes- 


sionnels souhaitent, mettez-vous à leur place, savoir de quoi il 


retourne. 


Nous avons présenté, le mois dernier, la publicité pour AMSTRAD 
EXPO, organisée par l'A.P.C. Cette Association a, semble-t-il, 


trouvé en face d'elle une autre équipe, professionnelle, équipe 


qui a déposé le titre ‘Amstrad Expo’ le 4 novembre, ceci avec 


la bénédiction d'AMSTRAD France, et organise une rencontre 


commerciale fin janvier (nous y serons). 


Au moment où nous mettons sous presse ce numéro, nous ne 


savons toujours pas si AMS'EXPO (son nouveau nom) se tien- 


dra bien début décembre. 


Nous pensons utile de mettre en garde les candidats à l'organi- 


sation de manifestations commerciales. Qu'ils n’hésitent jamais 


à se renseigner avant d'agir. Ils éviteront ainsi de nombreux déboi- 


res. 


LONDRES 


2° AMSTRAD 
COMPUTER SHOW 


Hôtel NOVOTELHAMMERSMITH 


Samedi 11 janvier 86 de 10 à 18h 
Dimanche 12 janvier 86 de 10à 17h 
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Organisé par notre confrère 
‘’Computing with the Amstrad” 


Pour animer une forme sur l'écran, 
il y a plusieurs possibilités : la pre- 
mière solution consiste à redéfinir 
des caractères et à les afficher à l’en- 
droit désiré à l’aide d’un langage tel 
que Basic ou Pascal. Vous avez cer- 
tainement déjà expérimenté cette 
méthode... et constaté que c'était 
épouvantablement lent et saccadé | 
La deuxième solution consiste à 
écrire les routines d'animation en 
assembleur : là, pas de problèmes, 
ça va vite. Pour les routines en 
assembleur, il y a de nouveau deux 
possibilités pour dessiner une 
forme : la première de ces solutions, 
qui est aussi la plus commune, est de 
faire un OÙ exclusif (XOR) entre le 
fond et la forme à animer. Pour effa- 


ans ce second article consacré à Cherry-Paint, nous 
allons voir comment animer des icônes sur l'écran 
7 de l’AMSTRAD, sans qu'il n’y ait aucun clignote- 
ment, mais tout d’abord, il va falloir créer ces icônes. 


cer cette forme, il suffira de faire un 
deuxième masquage en XOR, donc 
pour déplacer la forme, il suffit de 
deux masquages ; le premier mas- 
quage en XOR à l'endroit de départ 
pour effacer la forme, le deuxième 
masquage en XOR à l'endroit d’ar- 
rivée pour réafficher cette forme. 
Cette méthode est très rapide mais 
n’est pas très belle : tant que la 
forme se déplace sur un fond uni, 
tout va bien, mais dès qu’elle passe 
sur un objet, on ne voit plus rien 
(c'est le même effet, lorsque dans 
Sorcery, le sorcier passe sur une 
porte, ou dans Jane sur Apple). 

Dans l’autre solution, il faut d’abord 
sauvegarder le fond à l'endroit où 
on va placer la forme, dans un buff- 


fer, puis on pourra masquer le fond 
en OR avec la forme : on obtient 
alors une forme noire qui se super- 
pose à l’image. 

Pour déplacer la forme, il faudra 
donc d’abord recharger l'ancien 
fond ; pour cette solution, on aura 
donc trois opérations au lieu de 
deux, mais c’est beaucoup plus joli | 
Pour le programme Cherry-Paint, 
cette deuxième solution n’est pas 
tout à fait satisfaisante non plus. Pre- 
mièrement, toutes les icônes 
devraient être noires, deuxième- 
ment, si une icône se déplaçait sur un 
fond noir, on ne pourrait plus la 
voir | 

Pour pallier à ces inconvénients, il 
faut faire un masquage AND pour 
forcer une zone à zéro avant de 
faire le masquage OR. 

On s’arrangera pour que le masque 
AND soit légèrement plus grand que 


le masque OR : de cette manière, on 
crée un liseret blanc autour des icé- 
nes. En définitive, pour déplacer une 
forme, il faudra donc effectuer qua- 
tre opérations : 

1 — charger l’ancien fond pour effa- 
cer la forme, 

2 — sauver le fond de l’endroit où 
se trouvera la forme, 

3 — masquer AND, 

4 — masquer OR. 

Si on utilise ce procédé tel quel, 
l'animation des icônes ne sera pas 
de bonne qualité. Comme on effec- 
tue les quatre opérations précéden- 
tes à n'importe quel moment, on ris- 
que fort bien d'effacer la forme juste 
avant qu’elle ne s'affiche sur le moni- 
teur ; on aura, par conséquent, un 
clignotement incessant | 

Pour éliminer un clignotement, il faut 
afficher la forme pendant que le spot 
vidéo remonte de la dernière ligne 
d’une trame vidéo à la première 
ligne de la trame suivante, car pen- 
dant ce temps, le spot est éteint. 
Pour effectuer cette synchronisation, 
il y a de nouveau deux solutions : 
— on peut utiliser la routine système 
en #BD19. Cette routine attend le 
signal de fin de trame émis par le 
processeur vidéo. Le défaut de cette 
méthode est que, lorsqu'on attend la 
fin de trame, on ne fait rien d'autre, 
donc on perd une grande partie du 
temps de calcul ; 

— il est beaucoup plus intéressant, 
dans notre cas, d'utiliser une routine 
d'interruption synchronisée avec le 
retour du spot car, dans ce cas, la 
routine de déplacement d’une icône 
devient totalement indépendante du 
programme principal et il suffit de lui 
fournir la position de l'icône, pour 
qu'elle s'y déplace instantanément 
et sans clignotement | 

Mais il y a encore un problème qui 
risque d’apparaître : dans le cas où 
les routines d'affichage sont trop len- 
tes, le dernier masquage risque de 
ne pas être terminé lorsque s'affiche 
le haut de l'écran et, lorsqu'on 
déplace l'icône à cet endroit, on ris- 
que de la voir disparaître partielle- 
ment | 

Il est donc nécessaire d'écrire les 
routines de masquage les plus rapi- 
des possibles. 

Etant donné que le programme 
Cherry-Paint fonctionne en mode 2, 
chaque icône a huit représentations 
différentes. Là encore, il y a deux 
méthodes pour obtenir ces huit 


représentations : 

— dans le premier cas, il n’y a 
qu'une représentation en mémoire, 
les autres étant obtenues, lorsque 
c'est nécessaire, par rotations suc- 
cessives des octets de cette première 
représentation. Dans le cas extrême 
où il est nécessaire de déplacer la 
représentation de 4 bits, le temps de 
calcul devient prohibitif ; 

— Dans le deuxième cas, qui est 
celui utilisé pour Cherry-Paint, tou- 
tes les représentations sont en 
mémoire, la routine est alors très 
rapide, par contre, beaucoup de 
mémoire est utilisée pour stocker les 
formes. Les huit représentations sont 
décalées de. 1 bit chaque fois par 
rapport à la précédente (‘’pré- 
shifted shapes’’ en anglais). 

Le stockage en mémoire et les déca- 
lages successifs des différentes for- 
mes sont effectués par le premier 
programme Basic. Ce programme 
est formé de quatre parties : 
Lignes 1000 à 5190 

C'est la table des masques, pour 
chaque icône, on a d’abord le mas- 
que AND puis le masque OR. Les six 
derniers masques sont les différentes 
formes de pinceaux. 

Lignes 5200 à 5700 

Initialisation et remplissage de la 


mation. Pour ce faire, je vous pro- 
pose un chargeur hexa (deuxième 
programme Basic) qui comporte des 
sommes de test pour chaque ligne 
introduite : si le total calculé ne cor- 
frespond pas à la somme de test, il 
vous demandera de réintroduire la 
ligne fautive. Pour chaque ligne, il 
y a donc 8 nombres hexa et une 
somme de test à introduire. 
Lorsque les deux parties du code 
machine sont introduites, vous pour- 
rez tester le bon fonctionnement du 
programme en tapant et en exécu- 
tant le troisième programme en 
Basic, mais auparavant, assurez- 
vous que votre disquette contient les 
fichiers : SCR.BIN, TR.BIN (ces 
fichiers ont été créés par le premier 
programme Basic de ce mois). 


QUELQUES CONSEILS 


table qui contient les adresses des 
tables de formes. 

Lignes 5710 à 5960 

Remplissage de la table des formes. 
Lignes 5970 à 6280 

Rotation des masques à droite 7 fois 
et stockage en mémoire. 

Pour pouvoir faire fonctionner 
Cherry-Paint, il va falloir introduire 
le code hexa du programme d’ani- 


RQ 


1010 * LA TABLE DES FORMES EST EN ‘NATA’ 


1030 ? 

C40 DATA 2,16.3 

{959 ? 

1960 DATA &X11111111,8X11111111.8X11111111 
1970 DATA &xX11111111.8X11111111,8X11141111 
:080 DATA &X00011111,8X11111111.&X11111111 
1990 DATA &X00000111,8X11111111,8X11111111 


L'e] 


| 1100 DATA &X00000000,8X11111111,8X11111111 
| 1110 DATA &X00000000.8X00111111,8X1111111! 
1120 DATA &X00000000,8X00000111,8X11111111 


| 1130 DATA &XC0000000,&X00000001,8X11111111 


1140 DATA &X00000000,8X00111111,8X11111111 
| 1150 DATA &X00000000,&X00011111,8X11111111 


| 1160 DATA &X00011000,8X00001111,8x11111111 


1170 DATA &X00111100,8X00000111,8X11111111 
1180 DATA &X11111110,8X00000011,8X11111111 
[1190 DATA &X11111111,&8X00000001,8X11111111 
1200 DATA &X11111111,8X10000111,8X11111111 
1210 DATA &X11111111,8X11011111,8X11111111 
1220 ? 
1230 DATA &X00000000. &X00000000. &X00060000 
1240 DATA &X00000000, &X00000000, &X00000000 
1250 DATA &X00000000, &X00000000, &X00000000 
1260 DATA &X01 110000. &X00000000, &X00000090 
1270 DATA &X01111110. &X00000000, &X00000000 
1280 DATA &X01111111.8X10000000, &X0C000000 
1290 DATA &X01111111,8X11110000, &X0C0000000 
1300 DATA &X01111111,8X11111100, &X00000000 
1310 DATA &X01111111,8X10000000, &X00000000 
1320 DATA &X01110111,8X 11000000, &X00000090 
1330 DATA &X01100011.&X1 1100000, &X00000000 
1340 DATA &X01099001,&X 11110000, &X00090000 
1350 DATA &X0C000000, 8X 11111000, &X0000C000 
1360 DATA &X00000000, &X01 1 11100, &X00000C00 
1370 DATA £X000000C0, &X501 10000, &XG0000000 
1380 DATA &X00000000. &X00000009, &X00000000 
1390 ? 
1460 
1410 DATA 2,16.3 
1420 ? 
1430 DATA &X11111111,8X:1100009.8X11111111 
1440 DATA &X11111111,8X:1000900,8X01111111 
1450 DATA &8X1111:111,8X10000009,8X01111111 
1460 DATA &X11111111.&X00000000.8X01111111 
1470 DATA &X11111110,8X00000000,8X01111111 
1480 DATA &X11111100, &XG0000000.8X11111111 
1470 DATA &X11111000,8X00000001.8X11111111 
1500 DATA &X11110000,8&X00000011.8X11111111 
1510 DATA &X11100000,8X00900111,8X11111111 
1520 DATA &X1100000G.&X00001111,8X11111111 
1530 DATA &X10000000,8X00011111,8X11111111 
1540 DATA 8&X10000000,&X00111111.8X11111111 


[1550 DATA &*00000000,8X01111111.8X11111111 
1560 DATA &X00000001,8X11111111.8X11111111 
| 1570 DATA &X00000111,8X11111111,8X31111111 


1580 DATA &X00011111.8X11111111.8X111111i1 


_ |1590 ’ 


1600 DATA &X0C000000, &X00001 1 10, &XC00C0000 
1610 DATA &X00000000, &X0001000i . &X 10900000 
1620 DATA &X00000000, 8X00100100, &X10000000 
1630 DATA &X00000000, &X01001000, &X1000c000 
1640 DATA &X00000000, &X 10010001, &X0009C000 
1650 DATA &X00000001 . &X00109910, &X00000000 
1660 DATA &X00000010.&X010090100, &XC0C02000 
1670 DATA &X00000100, &X10001900, &X00000000 
1680 DATA &X00001001,&X00010000, &X00007000 
1690 DATA &X00010010,&X00109000, &XCO900090 
1700 DATA &*00101100,&X01000000, &X00000500 
1710 DATA &X00100010, &X 10090000, &X02000000 
1720 DATA &X01000011,8X00000000, &XC00G0000 
1730 DATA &X01001100, &X00000200, &X00009090 
1740 DATA &X11110000, &X000000090, &X00000000 
1750 DATA &X11000000, &X 00000000, &X00040C00 
1760 ? 

1770 ? 

1780 DATA 2.16,3 

1790 

1800 DATA &X11111111.8X11111111.8X11111111 
1810 DATA &X11111111,8X11111111,8X11111111 
1820 DATA &X11111111,8X11111111.8X11111111 
1830 DATA &X11111111,8X11111111,8X11111111 
1840 DATA &X11111111,&X11111111.8X11111111 


‘1850 DATA EX11111111,8X11111111,8X11111111 


1850 DATA &X11111111.8X11111111,8X11111111 
1870 DATA &X11111111,8X11111111.8X11111111 
1880 DATA &X11111111,&X11111111,8X11111111 
1890 DATA &X11111111,8X11111111,8X11111111 
1900 DATA &X11111111,8X11111111,8X11111111 
1910 DATA &X11111111,8X11111111,8X11111111 
1920 DATA &X11111111,8X11111111.&X11111111 
1930 DATA &X11111111.8X11111111.8x11111111 
1940 DATA &X11111111,8X11111111.&X11111111 
1950 DATA &X11111111.8X11111111,8X11111111 
1960 

1970 DATA &XC0000000, &X00000000. &X0090C090 
1980 DATA &X00009000, £X00000000, &X00000059 
1990 DATA &XC0000100,&X01000000, &X00000000 


12000 DATA &X00100000, &X00001000, &X00000000 


2010 DATA &*C0000001 , &X00000009, &X60000000 
2020 DATA &X00001000, &X0000001 0, &X00000000 
2030 DATA &X10000000, &X00100000, &X00000000 
2040 DATA &X00000010, &X00000009, &X00000000 
2050 DATA &X00010000, &X00000001 . &X00000000 
2060 DATA &XC00000000. &XC1000000, &X00000000 
2070 DATA &X01000000. &X00000100, &X00000000 
2080 DATA &X00000010, &X00000000, &X 00000000 
2090 DATA &X00010000, &X00010000, &X000C0C00 
2100 DATA &X00000000, &x10000C00, &X00000000 
2110 DATA &X00000000, &X00000000, &X00000000 
2120 DATA &X00000000, &X00000000. &X00000000 
2130 ? 

2140 ? 

2150 DATA 2,16,3 

2160 ? 

2170 DATA &X11111111,8X11111111,8X11111111 
2180 DATA &X11111111,8X11111111,8X11111111 
2190 DATA &X11111111,8X11111111,8X11111111 
2200 DATA &X11111111,8X11111111,8X11111111 
2210 DATA &X11111111,8X11111111,8X11111111 
2220 DATA &X11111111,8&X11111111,8X11111111 
2230 DATA &X11110000,8X00000000,&X11111111 
2240 DATA &X11100000. &X00000000, 8Y11111111 
2250 DATA &X11000000.&X00000000,8x11111111 
2260 DATA &X10000000,&X00000000,&X11111111 
2270 DATA &X00000000,&X00000000, &X11111111 
2280 DATA &X00000000, &X00009006. &X11111111 
2290 DATA &X00000000, £X00000001.8X11111111 
2300 DATA &X00009000, &X00000011.8X11111111 
2310 DATA &XC0000000.&X00000111.8xX11111111 
2320 DATA &XC0C00000,&x00001111,8X11111111 
2330 ? 

2340 DATA &X00000000, &X00000000. &X00C000000 
2350 DATA &X09000000, &XC0000000, &X00900000 
2360 DATA &XC0000000, &X00000000, £&X00000000 
2370 DATA &X0C000000, &X00000000, &X00000900 
2380 DATA &X00090000, &X00000000, &X00000000 
2390 DATA &XC0000000, £&X00000000. &X00000000 
2400 DATA &X00000000, &X00000000, £X00CC0C00 
2410 DATA &X00000111,&X11111110, &XC0000000 
2420 DATA &X00001000, &X000001 10, &X00000000 
2430 DATA &X00610000, &X00001010, &X005900000 


2440 DATA &X00100000, &X00010610, &X00000000 | 
[2450 DATA &X01111111,&X11100100, &X00000000 


2460 DATA &X0:000000, &X001 01000, &X00000000 
2470 DATA &X01000000, &X001 10000, &X00000000 
2480 DATA &X01111111,8X 11100000, &X0N°77000 
2490 DATA &X00000000, &X00000000, &XuJ000000 
2500 ? 

2510 ? 

2520 DATA 2,16,3 

2530 * 

2540 DATA &X11111111,8X11111111,8X11111111 
2550 DATA &X11111111,8X11111111,8X11111111 
2560 DATA &X11111111,8X11111111,8X11111111 
2570 DATA &X11111111,8X11111111,8X11111111 
2580 DATA &X11111111,8X11111111,8X11111111 
2590 DATA &X11111111,8X11111111,8X11111111 
2600 DATA &X11111111,8X11111111,8X11111111 
2610 DATA &X11111111.8X11111111,8X11111111 
2620 DATA &X11111111,8X11111111,8X11111111 
2630 DATA &X11111111,8X11111111,8X11111111 
2640 DATA &X11111111,8X11111111,8X11111111 
2650 DATA &X11111111,8X11111111,8X11111111 
2660 DATA &X11111111,8X11111111,8X11111111 
2670 DATA &X11111111,&X11111111,8X111111f1 
2680 DATA &X11111111,8X11111111,8X11111111 
2690 DATA &X11111111.8X11111111,8X11111111 
2700 

2710 DATA &X00000000, &X00000000, &X00000000 
2720 DATA &X00000000. &X00000000. &X00000000 
2730 DATA &*00000000, &X00000000, &X00000000 
2740 DATA &X00000000, &X00000000. &X00000000 
2750 DATA &X11111111,8X11111111, &X00000000 
2760 DATA &X11111111,8X11111111, &X00000000 
2770 DATA &X11111111,8X11111111.&X00000000 
2780 DATA &X11111111,8X11111111. 8X00000000 
2790 DATA &X11111111,8X11111111, &X00000000 
Z800 DATA &X11111111,8X11111111, &X00000000 
2810 DATA &X11111111,8X11111111, &X00000000 
2820 DATA &X11111111,8X11111111, &X00000000 
2830 DATA &X00000000, &X00000000, &X00000000 
2840 DATA &X00000000, &X00000000, &X00000000 
2850 DATA &X00000000, &X00000000, &X00000000 
2860 DATA &X00000000, &X00000000, &X00000000 
2870 ? 

2880 ? 


2890 DATA 2,16,3 

2900 ? 

2910 DATA &K11111111,&X11111111,8X11111111 
2920 DATA &X11110010.8X01011111,8X11111111 
2930 DATA &X11100000,8X00000111.8X11111111 
2940 DATA &X11110000,&X00600011.8X111111:1 
2930 DATA &X10015009,&X00000001,8X11111111 
2960 DATA &X09010000, &X00000000, &x11111111 
2970 DATA &X00010900, &X00000000,&X11111111 
2980 DATA &X00010000.&X00000000,8X11111111 
2990 DATA &X00010000, &X00000000, &X11111111 
3000 DATA &X00000000, &X00000000, &X11111111 
3010 DATA &X00000000, &X00000000,&X11111111 
3020 DATA &X10000000, &XC0000001.8X11111111 
3030 DATA &X11000000,£&X00000001,8X11111111 
3040 DATA &X11100000,&X00090011,8X11111111 
3050 DATA &X11110000,8X00000111,8X11111111 
3060 DATA &X11111111,8X11111111,8X11111111 
3070 ? 

3080 DATA &X00000000, &X00000000, &X00000000 
3090 DATA &X00001101,8X10100000, &X00001000 
3100 DATA &X00010010, &X0101 1009, &X00000000 
3110 DATA &X00001001, &X00100100, &X00000009 
3120 DATA &X0110100!,&X001001 10, &X09000000 
3130 DATA &X10101001,&X00100101, &X00000000 
3140 DATA &X10101001,8&X00100101, &X00000000 
3150 DATA &X10101000, &X00000101, &X00000000 
3160 DATA &X10101000, &X0C000001, &X000C0000 
3170 DATA &X100:0000, &X00000001, &X00005000 
3180 DATA &X10000000, &X00000001, &X02000000 
3190 DATA &X01000000, &X00000010, &X00CC0000 
3200 DATA &X00100000, &X00050010, &X00000000 
3210 DATA &X00010000, &X000001 00, &X00000000 
3220 DATA &X00001000, £XC0001000, &X00000000 
3230 DATA &X00000000, &X00000090, &X00000000 
3240 ? 

3250 ? 

3260 DATA 2,16,3 

3270 ? 

3280 DATA &X11111111,8X11111111,@X11111111 
3290 DATA &X11111111,8X11111111,8X11111111 
3300 DATA &X11111111,8X11111111,8X11111111 
3310 DATA &X11111111,8X11111111,8X11111111 
3320 DATA &X11111111,8X00111111,8X11111111 
3330 DATA &X11111111,8X00111111,8X11111111 


3340 DATA &X11111111,8X00111111,8X11111111 
3350 DATA &X:1000011,&X00000000.&x11111111 
3360 DATA &X11111111,8X11111111.8X 11111111 
3370 DATA &X11111111.800111111.8X11111111 
3380 DATA &X11111111,8X00111111.8X11111111 
3390 DATA &X11111111.8X11111111.8X11111111 
3400 DATA &X11111111,8X11111111,8X11111111 
3410 DATA &X11111111,8X11111111,8X11111111 
3420 DATA &X11111111,8X11111111,8X11111111 
3430 DATA &X11111111,8X11111111,8Y11111111 
3440 ? 

3450 DATA &X00000000, &X00000000, &X00000000 
3460 DATA &X00000000, £X0C000000, &X00000060 
3470 DATA &X00000000, £ *1:0000000, &X00000000 
3480 DATA &X00000000, &X00000000. £X00000000 
3490 DATA &X00000000, 4XC5000000, &X00000000 
3500 DATA &X000000! 1. &X20000000, &X00000000 
3510 DATA &X0000001 1, &X00000000, &X00000000 
3520 DATA &X00000011,8XC0000000, &X00000000 
3530 DATA &X11111111,8X11111100, &X00000000 
3540 DATA &X0000001!, &X00000000, &X00000000 
3550 DATA &X000000!{,£X00000000, &X00010000 
3560 DATA &X00000011,&X00000000, 8&*X00000000 
3570 DATA &X00000000, &X00000000. &XC0000090 
3580 DATA &X00000000, &X00000000, &X00C00000 
3590 DATA. &XC0000000, &X00000000, &X09000000 
3600 DATA &X00000000, &X00000000, &X00009000 


3630 DATA 2.16.3 

3640 ? 

3650 DATA &X11111111,8X11111111,8X11111111 
3660 DATA &X11110000, &X00000011,8X11111111 
3670 DATA &X11111111,8X11111111,8X11111111 
3680 DATA &X11111111.8X00111111,8X11111111 


3690 DATA &X11111111,8X00111111,8X11111111}. 


3700 DATA &X11111111,&X00111111,8X11111111 
3710 DATA &X11111111,8X00111111,8X11111111 
3720 DATA &X11111111.8X00111111,8X11111111 
3730 DATA &X11111151,8X00111111,8X11111111 
3740 DATA &X11111111,#X00111111.8X11111111 
3750 DATA &X11111111,8X00111111,8X11111111 
3760 DATA &X11111111,8X00111111,8X11111111 

770 DATA &X11111111,8X00111111,8X11111111 


3780 DATA &X11110011,&X00000011,8X11111111 


3790 DATA &X11111111,8X11111111.8X11111111 


3800 DATA &X11111111,8X11111111.8X11111111 
3310 

3620 DATA &X00000000, &X00000000, &XC0000C09 
3830 DATA &X00000000, &X00000900, &X00000009 
3840 DATA 8X00111111,8X 11110000, &X00000000 
3850 DATA &X0000001 1, &X00000000. £X00000000 
3960 DATA &X0000001 1, &X0C000000, &X00090000 
3870 DATA &X0000001 1, &XC0000009, &X00000000 
3980 DATA &X0000001 1. £X00000000, £X00C00000 
3890 DATA &X0000001 1, &X00000009, &X00000000 
3900 DATA &X00000011,&X00000000, £X00000000 
3910 DATA &XCOO000!11, &X00000000, &X00090000 
3920 DATA &X000000! 1, &X00000000, &X00000000 
3930 DATA &X0000001 1, &X00C00000, &X00000090 
3940 DATA &X00000011, &X00000000, £XC0000000 
3950 DATA &X00000011, &X00000000, &X00000000 
3940 DATA &X00111111,8X 11110000, £XC0000000 
3970 DATA &X00000000. &x:0000000, &X00C00000 
3980 ? 

3990 ? 

4000 DATA 1,16,3 

4010 

4020 DATA &X00000000, &X00000009, &XC0000000 
4030 DATA &X00000000, &X 00000000, &X00090090 
4040 DATA &X00000000, &X00000000, £X00000000 
4050 DATA &X00000000, &X06000000, &X00000000 
4060 DATA &X11111111,8X11111111,&XO0000000 
4070 DATA &X11111111,8X11111111, &X00000000 
4080 DATA &X11111i11,8X11111111,&X000C00000 
4090 DATA &X111111t1,8X11111111, &XO00GCOO0 
4100 DATA &X11111111,8X11111111, &X00000000 
4110 DATA &X11111111,8X11111111, &X0OCC0000 
4120 DATA &X11111111,8X11111111, &X00000000 
4130 DATA &X11111111,8X11111111,&X00900000 
4140 DATA &X00000000, &X00000000. &X00000000 
4150 DATA &X00000000, &X00000000, &X00000000 
4160 DATA &X00000000, £X00000000, &X00000000 
4170 DATA &X00000000. : 0000000, £X90000000 
4180 

4190 ? 

4200 DATA 1,16,3 

4210 ? 

4220 DATA &X00000000, &X00000000, &X00000100 
4230 DATA &X00000000, &X00000000, &X09000000 
4240 DATA &X00000000, &X00000000, &X00000000 
4250 DATA &X00000000, &X00000000, 8100000000 


4260 DATA &X00000000, &X60000000, &X00000000 
4270 DATA &X00000000, &X00000000, EXD0000000 
4280 DATA &X00000000, &X00000000, &X00000000 
4290 DATA &X001 11100. &X00000000, &X00000000 
4300 DATA &X00111100, &X00000000, &X00000000 
4310 DATA &X00000000, £X00000000, &X00000000 
4320 DATA 8X00000000, &X00000000, &X00000000 
4330 DATA &X00000000, &X00000000, &X00000000 
4340 DATA &X00000000, 00000000, &X00000000 
4350 DATA &X00000000, £X00000000, &X00010000 
4360 DATA &X00000000, &X00000009, &X00000000 
4370 DATA &X00000000, &X00000000, &X00000000 
4380 ? 

4390 ? 

4400 DATA 1,16,3 

410 ? 

4420 DATA &X00000000, £X00000000, &X00000000 
4430 DATA &X00000000, &X00000000, 8X00000000 
4440 DATA &X00000000, &X00000000, &X0000000 
4450 DATA &X00000000, &X00000000, &X00000000 
4460 DATA &X00000000, £X00000000, &X00000000 
4470 DATA &X00011111.8X10000000, &X00000000 
4480 DATA &X01111111,8X11100000, &X00000000 
4490 DATA 8X11111111,8X11110000, &X00C00000 
4500 DATA &X11111111,8X11 110000, &X00000000 
4510 DATA &X01111111,8X 11100000, &X00000000 
4520 DATA &X00011111,&X10000000, &X00000000 
4530 DATA &X00000000, £X00000000, &X00000000 
4540 DATA &X00000000, &X00000000, &X00000000 
4550 DATA &X00000000, &X00000000, &X00000000 
4560 DATA &X00000000, &X00000000, &X00000000 
4570 DATA £X00000000, 00000000, &X0000C000 
4580 ? 

4590 ? 

4600 DATA 1,16,3 

4610 


4620 DATA &X00000000, &X00000000, &X00000000 


4630 DATA &XC00000000, &X00009000, &X00000000 
4640 DATA &X00000000, &X00000000, &X0000C0000 
4650 DATA &X00000000, &X00000000, &X00000000 
4660 DATA &X00000000, &X00000000, &XC9000000 
4670 DATA &X00000000, &X00000000, &X00000000 
4680 DATA &X0001 1110, &X000909000, &X00000C00 
4690 DATA &X0D111111,&X00000000, &X00000000 
4700 DATA &X00011110,&X00000000, &X00000000 | 


èl 


4710 DATA &X00000000, &X00000000, &X60000000 
4720 DATA &X00000000, &X00000000, &X00000000 
4730 DATA &X00000000, &X00000000, &X00000000 
4740 DATA &X00000000, £X00000000, £XC0000000 
4750 DATA &X00000000, &X00000000, &X00000000 
4760 DATA &X00000000, &X00000000, &X00000000 
4770 DATA &X00000000, &X00000000, &X00000000 
4780 ? 

4790 * 

4800 DATA 1,16,3 

4810 ? 

4820 DATA &X00000000, &X00000000, &X00000000 
4830 DATA &X00000000, &X00000000, &X00000000 
4840 DATA &X00000000, &X00000000, &X00000000 
4850 DATA &X00000000, &X00000000, £X00000000 
4860 DATA &X00000000, &X00000000, &X00000000 
4870 DATA &X00000000, &00000000, &X00000000 
4880 DATA &X00000000, &00000000, &X 00000000 
4890 DATA &X11111111,8X11111111, &X00000000 
4900 DATA &X00000000, &X00000000, &X00000000 
4910 DATA &X00000000, £X00000000, &X00000000 
4920 DATA &X00000000, &X00000000, &X00000000 


4930 DATA &X00000000, &X00000000, &X00000000 
4940 DATA &X00000000, &X00000000, &XC0000000 


5230 ? 
5240 MEMORY &6FFF 


4950 DATA &X00000000, &X00000000, &X00000000 
4960 DATA &X00000000, &X00000000, &X00000000 
4970 DATA &X00000000, &X00000000, &X00000000 
4980 * 

4990 * 

5000 DATA 1,16,3 

5010 ? 

5020 DATA &X00000000, &X00000000, &XC0000000 
5030 DATA &X00000000, &X00000000, &X00000000 


3040 DATA &X00000000, &X00000000, &X00000C00 | 


5050 DATA &X00000000, &X00000000, &X00000000 
5060 DATA &X00000000, &X0000001 1, &X00000000 
5070 DATA &X00000000, &X0000! 100, &X00000000 
5080 DATA &X00000000, &X001 10000, &X00000000 
5090 DATA &X00000000, &X1 1000000, &X00000000 
5100 DATA &X00000011, &X00000000, &X00000000 
5110 DATA &X 00001100, &X00000000, &X00000000 
3120 DATA &X00110000, &X00000000, &X00000000 
5130 DATA &X11000000, &X00000000, &X00000000 
5140 DATA &X00000000, &X00000000, &X00000000 
5150 DATA &X00000000, &X00000009, &X00000000 
5160 DATA &X00000000, &X00000000, &X00000000 
5170 DATA &X00000000, &X00000000, &X00000000 
5180 ? 

5190 ? 


REGERVE DE LA PLACE POUR LA TABLE 


5250 &7C00: TABLE DES ADRESSES DE DEPUT DES 


5260 ; 
5270 ? 

5280 TABLE=&7100 
5290 

5300 DERUT=8&7300 
5310 ? 

5320 (FF=&7000-£4100 


TABLES DE FORMES, 


&7100: TABLE DES ADRESSES DES FORMES, 


*&7300: FORMES 


LA TABLE REELLE SE SITUERA À L'ADRESSE 


5330 ?&4100: IL FAUDRA DGNC DECALER LES 
5340 ADRESSES DES TABLES ET LES ADRESSES DE 
3350 LA TAËLE DES TAPLES, 


3360 ? 
5970 ? 


SD ——_— —————— ———————————— 

5390 PROGRAMME PRINCIPAL 

HD = — PRET PET SAT RE nr à 
5410 ? 

5420 LE PROGRAMME PRINCIPAL REMPLIT LA TABLE DES ADRESSES DE LA 

5430 TABLE DES ADRESSES DES FORMES, PUIS APPELLE LE SOUS-PROGRAMME 
5440 "QUI REMPLIT LA TABLE DES ADRESSES DES FORMES ET LA TABLE DES 
5450 *FORMES. 

5460 ? 


5470 POKE &7000,TABLE MOD 256:POKE &7001,TABLE\256-0FF\256:GOSUB 5750 
5480 POKE &7002,TABLE MOD 256:POKE &7003,TABLE\256-0FF\256:GOSUB 5750 
5490 POKE &7004,TARLE MOD 256:POKE &7005,TABLE\256-0FF\256:GOSUR 5750 
5500 POKE &7006,TABLE MOD 256:POKE &7007,TABLE\2586-GFF\256:G0SUB 5750 
3510 POKE &7008,TABLE MOD 256:POKE &7009, TABLE \256-0FF\256:GOSUB 5750 
3520 POKE &700A,TABLE MOD 256:POKE &700B, TAPLE\256-0FF\256:GOSUB 5750 
5530 POKE &700C,TABLE MOD 256:POKE &700D, TABLE \256-0FF\256 

3540 POKE &7010,TABLE MOD 256:POKE &7011,TABLE\256-0FF\256 

3550 POKE &7012,TABLE MOD 256:POKE &7013, TABLE \256-0FF\256 

3560 POKE &7014,TABLE MOD 256:POKE &7015,TABLE\256-0FF\256:G0SUB 5750 
5570 POKE &7O0DE,TABLE MOD 256:POKE &700F,TABLE\256-0FF\256:GOSUB 5750 
5580 POKE &7016,TABLE MOD 256:PGKE &7017, TABLE\256-0FF\256:GOSUR 5750 
5590 POKE &7D18, TABLE MOD 256:POKE &7019,TABLE\256-0FF\256:GOSUB 5750 
3600 POKE &7O1A,TABLE MOD 256:POKE &701B, TABLE \256-0FF\256:GOSUR 5750 
5610 POKE &7OIC,TABLE MOD 256:POKE &701D,TARLE\256-0FF\256:GO0SUR 5750 
5620 POKE &7OIE,TABLE MOD 256:POKE &701F, TABLE \256-0FF\256:G0SUR 5750 
5630 POKE &7020,TABLE MOD 256:POKE 87021, TABLE\256-0FF\256:G0SUB 5750 
5640 ? 

5660 SAVE"SH",R, &7000, &2400 

5670 ? 

5680 END 

5690 

5700 


SD — 
5720 *  SOUS-PROGRAMME DE REMPLISSAGE DES TABLES DE FORMES ET D'ADRESSES 


5750 READ NPRE 

3760 READ H:POKE TABLE,H 
3770 READ L:POKE TABLE+#I,L 
5780 POKE TABLE+2,&80 

3790 POKE TABLE+3,870-0FF\25 
5800 ?FÜRME AFFICHEE. 
5810 ? 

3820 FÜR Z%=4 TO 34-16#(2-NPRE) STEP 2 
5830 U=DEPUT+H#L#(2%/2-2)-0FF 


72: FORME, i: PINCEAU 
HAUTEUR 
? LARGEUR 


ADRESSE D'UN EUFFER QUI 
CONTIENT LE FOND SQUS LA 


REMPLIT LA SUITE DE LA TABLE 
AVEC LES ADRESSES DES 16 


€ 


5840  POKE TABLE+Z4+1b#(2-NBRE) ,U MÜD 256 
5850 POKE TABLE+Z%+1+16#(2-NBRE) ,U\256 
5860 NEXT 

5870 ? 

5980 IF NBRE=1 THEN 5910 

5890 GOSUR 6010 

5900  DEBUT=DERUT+H#L 

5910 GOSUR 6010 

5920 DERUT=DERUT+H#L 

5930 TABLE=TARLE+36 

3940 RETURN 


IMAGES CONSTITUANT UNE FORME, 
?{ 8 MASQUES AND’ } 
?( 8 MASQUES ’OR’ ) 


?UN SEUL MASQUE POUR LES 
?PINCEAUX, 


?SOUS-PROGRAMME DE REMPLISSAGE 
DE LA TABLE DES FORMES ET 
REMISE À JOUR DES POINTEURS. 


5980 ? SOUS-PROGRAMME DE REMPLISSAGE DE LA TABLE DES FORMES 


5990 =" 


6000 * 

6010 FOR 1%=0 TO H-1 

6020 FOR J4=0 TO L-1 

6030 READ A:POKE DEBUT+I%#L+J%, À 
6040 PRINT RINS$(PEEK(DERUT+I%xL+J7),8); 
6030  NEXT 

6060 PRINT 

6070 NEXT 

6080 PRINT 

6090 

6100 FOR J%=1 TO 7 

6110  DEPUT=DERUT+HXL 

6120 FOR K4=0 TO H-1 

6130 A=PEEK (DEPUT-H#L+K%#3) 

6140 B=PEEK(DEBUT-H#L+1+K%x3) 
6150 C=PEEK(DEBUT-H#L+2+#K%#3) 


6160 A=A/2:1F ACINT(A) THEN R={ ELSE R=0 


REMPLISSAGE DE LA TABLE DE LA 
PREMIERE FORME À PARTIR DE LA 
*TABLE" DE *DATA’? 


?CALCUL DES 7 AUTRES FORMES 
AVANCE LE POINTEUR DE TABLE 
?POUR TOUTES LES LIGNES 
?RETROUVE 3 GCTETS CONSTITUANT 
UNE LIGNE 


ROTATION DES 3 OCTETS A 


6170 P=B/2+R#126:1F RCINT(B) THEN R=1 ELSE R=0 ’DROITE,SANS OUBLIER LA 
6180 C=C/2+R*128:IF CCINT(C) THEN R=1 ELSE R=0 ‘RETENUE. 


6190 A=A+1284R 

6200 POKE DEBUT+K%#3, INT (A) 
6210 POKE DEBUT+K2#3+1. INT(R) 
6220 POKE DERUT+K2#3+2, INT(C) 


?RANGE LA LIGNE CALCULEE DANS 
LA TABLE, 


6230 PRINT BINS(INT(A),B)+RINS(INT(R),B)+BINS(INT(C),8) *AFFICHAGE DE 


6240 NEXT 
250 PRINT 
6260 NEXT 
6270 PRINT 
6280 RETURN 


? CONTROLE. 


100 ? CHARGEUR HEXA 
110 ? 

120 MEMORY &7000 
130 MODE 2 

140 ? 

150 DEB=68000 

160 LON=&ÈF 

170 GOSUB 260 

180 SAVE" CODE", R, DER, LON 
190 ? 

200 DER=&4400 


| 210 LON=&100 


220 GOSUR 260 

230 SAVE" VAR", R, DER, LON 

240 END 

250 ? 

260 FOR I=LDEB TO DER+LON STEP 8 
270 PRINT HEXS(I);" *; 

280 S-=0 

290 FOR J=0 TO 7 

300 INPUT:;" *,A$ 

310 A=VAL("&"+A$) 

320 POKE I+J,A 

330 S=5+A 

340 NEXT 

350 INPUT" ",B 

360 IF R<>S THEN PRINT'ERREUR':GOTO 270 
370 NEXT 

380 PRINT#B 

390 RETURN 


10 MEMORY &4000 
20 LOAD'VAR 

30 LOAD"CODE 
40 CALL &8000 


CD 30 80 CD 08 80 18 FB 
F3 21 2D 80 11 AC 81 O1 
03 00 ED BO FB JE 2F CD 
1E BB 28 F9 21 80 BJ JA 
C1 A4 CB 27 5F 16 OD 19 
5E 23 56 EB E9 CD 84 81 
CD 00 BB CD 4E RB JE 00 


En. 


CD A5 BB 22 86 A4 21 02 
81 46 23 11 00 70 CD 77 
BC D4 00 00 21 O0 Ci CD 
83 RC D4 00 00 CD 7A BC 
D4 00 00 21 FR E0 46 23 
11 00 70 CD 77 RC D4 O0 
00 21 00 4i CD 83 RC D4 
00 00 CD 7A RC D4 00 OÙ 
21 DA 81 46 23 11.00 70 
CD 77 BC D4 O0 O0 21 00 
65 CD 83 RC D4 OO O0 CD 
TA BC D4 O0 O0 JE 02 CD 
CE BC SE 00 O1 O0 O0 CD 
32 BC JE O1 Of O0 00 CD 
32 BC O1 00 00 CD 38 RC 
1 00 CO 21 O0 O1 O1 CO 
40 ED PO 21 00 01 36 00 
11 01 O1 Of FF 3F ED RO 
JE C0 O1 1A 1A CD 32 RC 
21 80 FF 11 80 67 O6 DO 
7D 12 13 7C 12 13 CD 29 
BC 10 F5 CD CB RC CD F7 
81 JA C2 A4 O1 C9 O0 CD 
83 84 JA A1 A4 Of 6F 00 
CD 83 84 Ob 53 48 2E 42 
49 4E 07 53 43 52 2E 42 
49 4E O6 54 52 2E 42 49 
4E D5 CR 25 CB 14 11 80 
67 19 5E 23 56 ER Di 7B 
E6 07 CB JA CB 1B CR JA 
CB 1B CB JA CB 1B ED 53 
A7 A4 19 C9 C5 E5 1A R6 
77 23 13 10 F9 E1 O1 00 
08 09 30 O6 O1 RD 3F A7 
ED 42 Ci OD 20 Eb C9 C5 
ES 1A Ab 77 23 13 10 F9 
Ei 01 00 08 09 30 O6 O1 
BO 3F A7 ED 42 C1 OD 20 
EB C9 79 48 O6 OD C5 ES 
ED BO El O1 O0 O8 09 30 
06 01 RO 3F B7 ED 42 C1 
JD 20 EB C9 79 48 O6 00 
EB C5 D5 ED RO Di Oi C0 
08 EB 09 30 O6 Of PO FF 
B7 ED 42 ER C1 3D 20 E9 


122 


C9 2A BF A4 ED 4B DJ A4 
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ED 52 38 O4 ED 53 C7 A4 
11 CE 00 ZA C9 A4 37 ED 
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CB 00 2A C9 A4 37 ED 52 
38 O4 ED 53 C9 A4 ZA C3 
A4 11 6F O2 37-ED 52 30 
43 ZA C3 A4 11 4C 00 37 
ED 52 38 38 2A C5 A4 ii 
BB 00 37 ED 52 30 2D 2A 
C5 A4 11 23 00 37 ED 32 
38 22 JA Ci A4 FE 00 CO 
JA C2 A4 32 C1 A4 21 O0 
41 CB 27 5F 16 00 19 5E 
23 56 EB 11 D3 44 O1 24 
00 ED RO C9 JA Ci A4 FE 
00 C8 2A O0 41 11 D3 44 
01 24 00 ED BO JE O0 32 
C1 44 C9 O4 O4 O1 OC Di 
97 83 96 83 96 83 96 83 
96 83 96 83 96 83 96 53 
98 83 96 83 96 83 C9 11 
CB 0D 21 4B C0 O6 BC CE 
68 CD E4 83 D2 O6 B4 1 
98 00 21 77 O2 Ob A CE 
05 CD E4 83 D2 AJ 65 ii 
OP 09 21 4B O0 06 62 CE 
30 CD E4 83 D2 BE 84 11 
18 00 21 4B 00 O6 26 CŒ 
06 CD E4 83 D2 4B 85 24 
C5 A4 11 RD CD B7 ED 52 
C0 00 00 C9 D5 ED 5B C3 
A4 B7 ED 52 EB Di DB E7 
ED 52 D8 ED 5B C5 44 26 
00 68 B7 ED 52 D8 EB 16 
00 59 B7 ED 52 C9 ED 5B 
C3 A4 21 2D O0 P7 ED 52 
0E 00 30 02 DE 01 ED 5B 
C5 A4 21 AB O0 JE 00 O6 
04 ES B7 ED 52 E1 38 OB 
JC D5 11 11 O0 B7 ED 52 
Di 10 EE CB 27 81 3C 32 
9D A4 4F JA C2 A4 R9 CA 
15 80 F3 11 AC BI 21 62 
84 01 03 00 ED PO JE O0 
32 9E A4 FB JA 9E A4 JD 
20 FA JE FF 00 00 00 C3 
08 80 CD 65 84 CD 84 81 
JA C2 A4 O1 C9 O0 CD 83 


84 3A 9D A4 32 C2 A4 D 
C9 00 CD 83 84 JE O1 32 
9E A4 C9 3D CB JF 21 BO 
A4 11 OC 00 30 Oë 21 B6 
A4 11 2€ 00 ES C5 Et 47 
04 D5 11 11 O0 B7 ED 52 
10 FB D1 CD 11 81 O6 10 


C5 44 21 

02 E5 B7 ED 52 El 38 CB 
JC D5 11 11 00 B7 ED 52 
Di 10 EE CB 27 81 3C 32 
9D A4 4F JA Al A4 B9 CA 
15 80 F3 11 AC 81 21 2A 
85 01 03 00 ED RO JE 00 
32 9E A4 FR JA 9E A4 JD 
20 FA 21 10 43 11 24 00 
JA Ai A4 47 19 10 FD 11 
A4 42 01 10 00 ED BD C3 
08 80 CD 2D 85 CD 84 Bi 
JA A1 A4 O1 6F 00 CD 83 
84 JA 9D A4 32 A1 A4 OI 
&F 00 CD 83 84 JE 01 32 
9E A4 C9 ED 5B C5 A4 06 
05 21 8D A4 7E 4F 93 38 
03 23 10 FB JA 8C A4 P8 
C8 78 32 8C A4 21 26 00 
11 OB O0 CD 1i 81 11 03 
F8 06 20 ES 7E A2 77 23 
TE A3 77 Ei CD 26 BC 10 
F2 79 C6 03 26 O0 6F 1i 
0B 00 CD 11 81 11 93 A4 
06 05 E5 1A Bb 77 23 13 
1A Bb 77 13 Ei CD 26 BC 
10 FO C9 ED 5B C3 A4 21 
30 00 O1 18 O0 AF ES ED 
52 E1 30 O4 09 3C ÎB F6 
CB 27 21 11 O0 ED 5B C5 
A4 B7 ED 52 38 O1 3C 21 
A9 A4 46 77 B8 C8 21 13 
00 11 69 O0 CD 11 81 22 


A3 Ah DE 13 21 00 65 JA 
A9 A4 5F 16 O0 O6 04 CB 
23 CR 12 10 FA 19 22 A5 
A4 2A A5 A4 C5 79 Eë O7 
5F JE O7 93 5F CB 23 16 
00 19 C1 Oë 00 ED 5B AJ 
Ag C5 06 O2 7E 12 23 13 
TE 12 2B 13 10 F6 Ci 2A 
A3 A4 CD 26 RC 22 AJ A4 
OD 79 FE 08 CA 15 80 18 
C8 00 00 00 00 O0 00 C0 


C9 00 96 00 00 CO 00 00 
O6 OF FF O0 OA 09 14 09 
1E OP 2A OC 37 O8 40 07 
01 03 00 10 03 45 A4 74 
A4 00 00 00 00 O0 00 00 
CG 00 CO O0 00 Où 00 00 
00 C9 00 00 00 00 00 00 
00 00 00 00 00 00 00 D4 
01 7A A4 7F A4 53 61 75 
76 65 20 75 6E 65 20 69 
ëD 61 67 65 O0 43 68 61 
72 67 65 20 75 6E 65 20 
69 6D 61 67 65 00 4E 6F 
75 7b 65 6C EC 65 20 70 
61 67 65 O0 96 83 76 A4 
78 A4 49 6E 66 &F O0 96 
63 00 CO 00 00 00 00 00 
C0 00 00 00 02 21 1D 19 
13 OB 05 00 OC 00 10 06 
20 01 40 C1 CO 00 00 00 
00 01 00 00 OÙ 00 65 00 
00 00 00 00 00 00 00 00 
FFF FF FF F8 O0 O1 FF 
FF FF FF 00 00 OD CD CC 
CC 00 01 64 00 64 O0 64 
00 64 00 00 00 00 O0 O0 
00 00 C0 08 03 80 41 98 
41 RO 41 CB 41 ED 41 F8 
41 10 42 28 42 40 42 58 
42 70 42 68 42 AO 42 BB 
42 DO 42 E8 42 00 43 00 
00 00 CO O0 00 00 O0 00 
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COURRIER 


Respectez les règles du courrier 
des lecteurs, si vous désirez obte- 
nir une réponse, personnelle ou 
par la revue. N'oubliez ni le cou- 
pon réponse découpé dans CPC, 
ni votre étiquette d'’abonné (si 
vous l'êtes), ni l'enveloppe tim- 
brée pour la réponse (si vous 
n'êtes pas abonné). 

D'autre part, il est inutile de nous 
soumettre un listing pour que 
nous vous aidions à y rechercher 
vos erreurs : nous n'avons pas le 
temps de le faire. 

Plusieurs lettres sur le même 
thème : ‘J'ai écrit un programme 
super, qui dit Papa-Maman.… 
Puis-je vous l'envoyer ?”’ 

La réponse est : oui ! Ne deman- 
dez pas sans cesse la ‘’permis- 
sion’’ ou notre avis. Envoyez 
votre programme sur cassette ou 
sur disquette, accompagné d’un 
texte explicatif manuscrit. Nous 
testerons vos réalisations et 
publierons les meilleures. 
N'oubliez pas qu'il ÿ a un abon- 
nement gratuit pour la première 
publication, ou une participation 
rémunérée. 

Tout dépend de ce que vous nous 
envoyez. 

Ne nous écrivez pas, non plus, 
pour avoir des cours particuliers 
et nous décrire comment pro- 
grammer et animer des Sprites, 
colorier une surface ou gérer 
votre discothèque... Le courrier 


des lecteurs ne peut être une: 


seconde revue ; sa raison d’exis- 


ter est de vous aider à résoudre 


de petits problèmes ou répondre 
à des questions précises concer- 
nant des articles déjà publiés 
dans CPC. 

Un dernier mot : pas d'étiquette 
d’'abonné (si vous êtes abonné) 
ou pas d'enveloppe affranchie 
self-adressée (si vous n'êtes pas 
abonné) et de coupon réponse 
égal pas de réponse. Ne l'oubliez 
pas | 


Guy PICOU 
46 LA CHAPELLE-MARIVAL 


Comment récupérer un pro- 
gramme dont le chargement est 
incomplet, du fait de l'apparition 
d'une erreur de type ‘Read Error 
a”’ (ou b) ? 

Nous ne connaissons pas la solu- 
tion qui permettrait de récupérer 
un fichier ‘‘’inachevé’’ et, bien 


que cela ne semble pas facile à 


résoudre, la solution a peut-être 


” déjà été trouvée par un de nos 


lecteurs. Nous ne manquerons 
pas de la publier si elle nous par- 
vient. 


André BAROTTE 
49 SAUMUR 


Faut-il revendre le 464 pour ache- 
ter le 6128 ou vaut-il mieux 
l’équiper d'un drive et d'une 
64k? 

La question est résumée ici. 
Notre lecteur, dans sa lettre, se 
faisait l'écho des nombreux cour- 
riers reçus sur ce thème, et nous 
allons tenter d'y répondre. Le 
6128, par son avance technolo- 
gique, a surpassé les 464 et 664. 
Il faut savoir néanmoins que les 
avantages d’un 6128 (fonctions 
nouvelles, Bank Manager) ne 
pourront pas être obtenues sur 
un 464, fût-il équipé d'un drive 
et des 64 k supplémentaires. 
Si seuls le gain d'espace mémoire 


_et les services rendus par un drive 


vous séduisent, leur simple 
adjonction au 464 devrait vous 
satisfaire. C'est aussi un bon 
moyen pour ne pas perdre trop 
d'argent avec une revente en 
occasion... Si, par contre, vous 
désirez bénéficier des fonctions 
nouvelles, vous n'aurez pas le 
choix : il faudra changer de maté- 
riel… à moins qu'un constructeur 
ne nous fabrique sous peu un kit 
d'adaptation bon marché ! 


AO ,oume du Gin de Golf. 


325 430  BRuz 


Pascal BERGE 
92 MEUDON 


Pourquoi ne pas tester les diffé- 
rents 64 k du marché ? 

Rassurez-vous, ça vient |! Le pro- 
blème est que la place disponible 
dans CPC n'est pas extensible à 
souhait. || existe un sacro-saint 
rapport entre rédactionnel/pub et 
coût de revient pour un nombre 


de pages donné. 
| 


Julien CAMPOS 
40 TYROSSE 


Les mylars, 
c'est ? 

Bonne question ! Elle nous a d’ail- 
leurs été posée à plusieurs repri- 
ses. Les mylars sont des films 
servant à insoler, par un procédé 
photographique, les plaques 
d'époxy présensibilisées. Le 
résultat de cette manipulation 
est, après gravure au perchlorure 
de fer, un circuit imprimé. C'est 
le seul procédé valable pour réa- 
liser des circuits à forte densité 
de pistes. Bien entendu, il ne peut 


qu'est-ce que 


ICI propose logiciels 
professionnels sur disquettes. 


ICITEXTE : mixage de 2 800 € Traite- 


ment de texte avec mailing 590 F. 


ICITAB : tableur performant et interactif 
avec ICITEXTE. Consultation simultanée de 
3 tableaux à l'écran. 


ICICOMPTFAC 1 


acturation 


: comptabilité + 


ICICOMPTFAC 2 : (avec accès direct) 
ICICOMPTAB 3 . ne (accès 


direct) 1000 comptes 1 
écritures 


journaux 8000 


catalogue logiciels sur demande contre 
timbres à 3. 


ICI INFORMATIQUE 


2, rue du Pont-des-Tanneries 
21000 DIJON - Tél. 80. 45.13.69 


être utilisé que par des gens dis- 
posant d’un minimum d'’équipe- 
ment et de savoir-faire. 

Ne faites pas comme ce lecteur 
qui, recevant ses mylars, les a 
grattés en pensant avoir affaire à 
des ‘transferts’. Dommage | 


Nous avons eu un petit problème 
avec le schéma de l'adaptation 
PERITEL que nous proposions 
dans CPC n° 4, ce qui nous a 
valu pas mal de courrier et d’ap- 
pels téléphoniques. 

Voici le câblage correct à effec- 
tuer entre PRISES AMSTRAD et 
PERITEL. 


Connecteur VIDEO (moniteur) 
AMSTRAD (vue arrière). 


120 Synchro/vidéo 
18 
16 +5 V ialimentation séparée) 


Le +5 V de l'alimentation sépa- 
rée va en 16 de la PERITEL. La 
masse de l'alimentation va en 18. 
Précisons aussi que le son, sor- 
tant du jack stéréo AMSTRAD, 
pourra être envoyé vers la PERI- 
TEL, à travers un câble blindé 
deux conducteurs. 

Un des conducteurs au point 2 de 
la PERITEL, l’autre au point 6. La 


masse ira en 5. 
Connect. Connect. 
Amstrad Péritel 
15 


11 

7 
20 
17 


O1 B © N — 


LES CLUBS 

MICROS-DATA 

5, av. Joseph Claussat 

63400 CHAMALIERES 

ORIC et AMSTRAD. Ateliers 
informatique et électronique. Ini- 
tiation et programmation. Pour 
tout renseignement, contacter le 
président Jean-Marc FOURVEL 
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-BLANC-BERNARD (2° 


au 73.36.88.65 entre 17 et 19h. 


MESSAGE A TOUS LES 
AMSTRADISTES : 
L'AMSTRAD N'EST PAS 
UNE MOUCHE TSE-TSE ! 


Le CLUB AMSTRAD de NANTES 
vous ouvre ses portes et ses 
diverses activités dans les locaux 


e : 
MICRONAUTE 
9, rue Urvoy de St. Bedan 
44000 NANTES 
(entre musée Dobrée et place de 
l'Edit de Nantes) 
Tél.: 40.69.03.58 


AMS'CERCLE DE LYON 
(Association loi 1901) 


Les mercredis à 18 h 30 chez 
étage), 
9-11, rue Salomon-Reinach, 
59361 LYON. 

Tél.: 78.72.25.48, poste 22. 


| 
VOTRE ATTENTION S.V.P. ! 


Ajustez vos lunettes si vous en 
portez et lisez bien ce qui suit 
parce qu'on ne vas pas vous le 
répéter tous les mois. 

1 — Ilest impératif de joindre au 
courrier le coupon découpé, et 
non photocopié, dans la revue 
(page Editorial, en général) et de 
joindre, soit l'étiquette découpée 
sur votre enveloppe d’abonné, 
soit une enveloppe affranchie 
self-adressée. En leur absence, 
plus de réponse. 

2 — Lorsque vous commandez 
une cassette ou une disquette, 
n'oubliez pas de préciser son 
numéro : Catherine, qui s'occupe 
des envois, ne lit pas encore dans 
le marc de café pour deviner vos 
intentions. Résultats vos 


| commandes sont différées et 
: vous attendez deux semaines de 


plus, le temps que les échanges 


‘ de courrier soient effectués, 


avant de pouvoir admirer les 
excellents programmes que nous 
vous proposons. 

ESS RS 


COUP DE FREIN 
AU PIRATAGE 


: S'ilest souhaitable, tout au moins 


c'est notre avis, que les éditeurs 
de logiciels fassent un effort pour 
proposer des réalisations d’excel- 


lent qualité au meilleur prix pos- 
sible (le logiciel familial coûte sou- 
vent trop cher. ), il faut égale- 
ment que les utilisateurs 
comprennent que le piratage est 
un véritable fléau qui touche 
durement l'informatique familiale. 
Le piratage démarre au niveau de 
la simple copie, que l’on donne 
ou échange contre une autre 
copie d’un logiciel convoité. S'il 
y a vente, le fait est encore plus 
grave. Notre but n’est pas de 
faire là le procès des pirates (en 
herbe ou organisés), mais de ne 
pas contribuer à les aider. Nous 
avons donc décidé de refuser, au 
fur et à mesure qu’elles nous par- 
viendront, les petites annonces 
visant à échanger (ou vendre) des 
listes ou des copies de logiciels, 
des ‘‘déplombeurs’”, etc. 
Quelques annonces de ce genre, 
déjà maquettées alors que nous 
prenions la décision, vont encore 
passer dans CPC, mais ce seront 
les dernières. 

Un conseil donc, n’envoyez plus 
de telles annonces, elles seront 
systématiquement refusées. 
L'auteur d'une petite annonce 
s'engagera donc et certifiera 
implicitement ne vendre ou 
échanger que des logiciels en 
emballage d'origine, accompa- 
gnés de leurs notices. 


EE 
AU SECOURS ! 


A la rédaction de CPC, nous som- 
mes littéralement submergés par 
l'avalanche de votre courrier 
technique. C'est pourquoi nous 
vous demandons de nous aider 
en écrivant vos lettres de la façon 
suivante : 

e Posez vos questions une à une 
en nous laissant suffisamment de 
place pour y répondre directe- 
ment sur votre lettre qui vous 
sera retournée. 

e Essayez de décrire vos problè- 
mes le plus clairement possible. 
Si votre ordinateur vous annonce 
un message d'erreur, spécifiez 
bien lequel et en quelle ligne. 

e N'omettez pas de joindre une 
enveloppe affranchie self- 
adressée. 

Nous pourrons ainsi gagner du 
temps et vous répondre plus rapi- 
dement. Merci ! 


Une ligne téléphonique est à 
votre disposition, vous mettant 
en contact direct avec la rédac- 
tion. Ceci est un service sans 
égal ! Respectez simplement les 


horaires et les jours que nous F: 


vous indiquons : 

MERCREDI de 9 h à 12h et de 
14hà17h. 

VENDREDI de 9 h à 12 h seule- 
ment. 

Tout appel en dehors de ces cré- 
neaux sera refoulé : ne dépensez 
pas inutilement votre argent | 
Le numéro : 


LÉ 


DD 


so 7 
PET 74 


/ 
/ 


‘ 
2 
’ 


‘ 


LES VRAIS LIONS 
PROGRAMMENT 
A __V_E C 


99.52.9811 ‘: 


Tél.: (56) 24.05.34 
257, rue Judaïque 


BORDEAUX 


(UHR NHENENT 
4. “ER A LE 2 
d ’ 


UN LOGICIEL PASSIONNANT QUI 
LANCE UN NOUVEAU STYLE DE JEU!!! 


AE 


BUGS BUSTER 


Votre programme est attaqué 
par les monstrueux bugs et vous 
voyez votre dessin ou sa musique 
s'altérer. Prenez vos armes et en 

route sur le circuit imprimé de votre 
micro pour visiter les circuits et 
détruire ces bugs avant que votre 
programme soit inutilisable. 
Un jeu entièrement neuf dans son 
thème et sa réalisation qui 
vous passionnera. 


S-HRUSEII 


[Détachez ce coupon et envoyez le à : 
FREE GAME BLOT - Cidex 205 - 38190 CROLLES 


[1 Je désire recevoir le logiciel «BUGS BUSTER» 
Je joins à ma commande un chèque de 
125,00 + 15,00 F pour frais de port 


CPC 6128 
disponible. 


©] Je désire recevoir le catalogue couleur des 
titres FREE GAME BLOT 


Nous consulter. 
AVIGNON : (90) 22.47.26 


ALA VITRINE DU 


LISBRAIRE 


‘MONTAGES, EXTENSIONS ET PERIPHERI- 
QUES DU CPC" 

SCHÜSSLER 

Micro Application 

199 F 


Amis bricoleurs, à vos fers à souder. Si vous 
ne craignez pas de réaliser des interfaces et 
que c'est là votre passion, sachez que le prix, 
un peu élevé, de cet ouvrage sera compensé 
par son contenu. 

Après quelques rappels de la logique élémen- 
taire, l’auteur vous propose de réaliser quel- 
ques cartes et, pour ce faire, commence par 
expliquer le principe du décodage d'adresses. 
Plusieurs solutions sont proposées : à vous 
de choisir celle qui vous convient. Si vous 
projetez de réaliser plusieurs extensions, la 
carte bus bufferisée vous sera utile. Vous 
sont aussi proposés : une alimentation, des 
cartes entrée-sortie, un programmateur 
d'Eprom, une interface RS 232, un timer pro- 
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grammable, une carte analogique/digitale. 
Toutes les réalisations sont proposées avec 
les schémas électriques, les plans d’implan- 
tation et le tracé des circuits imprimés. Un 
testeur logique vient compléter la panoplie et 
vous tirera d'embarras. 

Complet avec ses 400 pages et unique en 
son genre, cet ouvrage devrait ravir tous ceux 
qui veulent tirer leur AMSTRAD de son iso- 
lement, et lui permettre de dialoguer avec le 
monde extérieur. 


‘LE LIVRE DU CP/M 2.2 ET 3.0" 
WEILER et SCHIEB 

Micro Application 

149 F 


C'est bien de livrer CP/M avec les différents 
AMSTRAD, mais il faut reconnaître que la 
notice utilisateur est avare en renseigne- 
ments concernant ce système d'exploitation. 


Pour en savoir plus, il vous faut lire un 
ouvrage consacré à CP/M. Parmi ceux qui 
sont disponibles, celui-ci a l'avantage de trai- 
ter des deux versions qui concernent l’ AMS- 
TRAD. Il vous permettra de bien comprendre 
les subtilités de ce vieux système d’exploi- 
tation. De l'utilisateur débutant, qui voudra 
simplement connaître l’utilisation de quelques 
commandes, au programmeur expérimenté 
désirant découvrir la conception interne de 
CP/M, chacun y trouvera son intérêt. 

La présentation, claire, reprend pour 
commencer ce que vous savez peut-être déjà, 
et vous amène à la description des différents 
utilitaires (l’ Assembleur ASM, PIP, etc.). 
Adapté au 464, 664, 6128, celivre sera une 
première étape sur la route des program- 
meurs voulant toucher à CP/M. L'étape sui- 
vante passera par de nombreuses manipula- 
tions et par la recherche d'un livre beaucoup 
plus détaillé sur la structure interne de CP/M. 


‘MIEUX PROGRAMMER SUR AMSTRAD" 
Michel ARCHAMBAULT 

Soracom 

85 F 


Tous nos lecteurs connaissent Michel 
ARCHAMBAULT par les articles qu'il propose 
dans CPC. L'auteur a le goût des produits 
finis, bien présentés, structurés, etc. C'est 
ce goût qu'il vous invite à partager dans ce 
livre de 140 pages. Ce n'est pas un guide du 
Basic : c'est un complément du manuel d'ori- 
gine. 

Concevoir des programmes alliant rapidité, 
performances et fiabilité, deviendra désor- 
mais possible à tout lecteur ayant suivi les 
conseils dispensés par l’auteur, programmeur 
professionnel. 

Les astuces de programmation qui sont pro- 
posées pourront être réutilisées par chacun, 
lors de réalisations personnelles. 

Jouer avec les couleurs, manipuler les chaî- 
nes de caractères, redéfinir des symboles, fil- 
trer les entrées (pour éviter que le programme 
ne se plante) sont autant d'atouts qui don- 
nent un aspect ‘‘’fini’’ au programme. 


De même, Michel ARCHAMBAULT vous indi- 
quera les pièges dans lesquels il ne faut pas 
tomber, tout en vous aidant à rechercher les 


‘BASIC AMSTRAD CPC 464 — METHODES 
PRATIQUES” . 
J. BOISGONTIER et B. CESARD 


erreurs éventuelles. PSI 
Les listings proposés sont courts et présen- 100 F 
tés sur 40 colonnes. L'ensemble du livre est 
Ce livre de 165 pages comporte deux par- 


clair et bien structuré... comme devraient 

ties : la première explique la prise en main de 
la machine puis détaille, exemples à l'appui, 
toutes les focntions du Basic AMSTRAD clas- 
sées par familles. Ainsi, le chapitre 4 ne traite- 
t-il que du découpage des programmes. On 
y apprend tout sur les sous-programmes et 
les branchements multidirections. Pour cha- 
que instruction, on trouve un court pro- 
gramme d'application avec la recopie de 
l'écran après son exécution. Le chapitre le 
plus intéressant est, à notre avis, celui qui 
traite des graphismes et des sons. Les peti- 
tes routines décrites pourront être incorpo- 
rées dans les programmes qu'écrira le lecteur. 
La deuxième partie de l'ouvrage contient une 
quinzaine de programmes plus longs, mettant 
en pratique les instructions étudiées au cours 
des chapitres précédents. Dix d’entre eux 
sont graphiques et les autres plus utilitaires : 
fichier d'adresses, gestion de fichiers auto- 
matique, masque de saisie d'écran et biblio- 
thèque. Ce livre vient en complément du 
manuel livré avec la machine, et le débutant 
pourra, pour peu qu'il se donne la peine de y 
taper les exemples donnés, comprendre plus 
facilement le Basic d'AMSTRAD. 


l'être vos programmes après sa lecture. 


NI + MERCI 
= MERCITEL 


FICHE TECHNIQUE SIMPLIFIEE 


Microprocesseur Z 80 A DART 
ROM 27128 128 K bits 
Normes de Sortie RS 232 C 


Vitesses programmables de 75 à 9 600 bauds 


30 Instructions BASIC de TELECOM en RSX 
Transmission /Reception de fichiers 
€ommunication avec d'autres ordinateurs 
Enulation de Terminal 
Emulation MINITEL 


890 Frrc 


23, rue de la Mouchetière 
SARL. capital 100 000 F 


CONTROLEUR TELECOM 


La Securite des procédures de 
Telecomunication PROFESSIONNELLE 
Asynchrone sur votre AMSTRAD 

CPC k6k - CPC 664 - CPC 6128 


La Securite de fonctionnement 
avec tout le Logiciel en ROM 
disponible des la mise sous 
tension 


Z. 1. INGRÉ 
RM 32933 881 450 


45140 Saint-Jean-de-la-Ruelle 
SIRET 329 338 818 00019 


Tél. 38.72.22.83 
Code APE 2701 
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UN EDITEUR 
SE PRESENTE 


OPUS, 
UN EDITEUR HEUREUX ! 


NORSOFT a vu le jour en janvier 
1984, en pleine période de crise, 
ce qui était hasardeux. 


Toutefois, la naissance de 
TYRANN, jeu sur ORIC-1 et 


: ATMOS fut un succès et devint 


vite le cheval de bataille de cette 
jeune société. Depuis, ses logji- 
ciels sont adaptés sur AMSTRAD 
(et sur d’autres machines) en 
français, allemand et anglais. 
Depuis 1985, 11 programmeurs 
ont rejoint l’équipe. OPUS qui est 
le vrai nom de la société (NOR- 
SOFT est en fait une marque) dis- 
pose d’une structure légère donc 
pouvant prendre de rapides déci- 
sions. 

Fidèle à sa politique, OPUS sou- 
haite maintenir la qualité et sor- 
tir de nouveaux produits dont 
TYRANN II. 

Le siège de la société se trouve 
en bord de mer, à Caen. Les 


contacts se font plus particuliè- 
rement par téléphone, tant avec 
les clients qu'avec les program- 
meurs. 

Rémy GOSSELIN, le gérant, s’oc- 
cupe plus particulièrement des 
auteurs dans un climat de 
confiance, synonyme d'effica- 
cité. La confiance est nécessaire 
puisque si le projet est bon, la 
société n'hésite pas à mettre en 
prêt du matériel. Il n’est même 
pas rare que la décision soit prise 
de financer une partie du projet. 
M. WYST RACH s'occupe, lui, de 
la programmation, de l'adaptation 
et de la traduction. 

Extérieur à la société, D. FALUE 
a pris en charge le graphisme et 
la publicité. 

Les auteurs ? J.P. AMET, L. 
BLONDEL, J. BRUNET, E. CHE- 
VALIER, Th. DURAND, Ch. 
HUGEL, Ph. MARTI, G. SAVI- 
ARD, P. ALLAIN, E. MASSON, 
Ch. TRIBOUILLARD. 

Le mois prochain, nous vous pré- 
senterons un autre éditeur, celui 
de votre revue. 


BANC D'ESSAI 


‘’GUTTER"" 
(ERE INFORMATIQUE) 


Si vous en avez assez de jouer les extra- 
terrestres solitaires, peut-être voudrez-vous 
devenir, pour un temps, une boule d'acier 
dévalant une gouttière ? 

C'est le thème de ce nouveau jeu d'ERE. 
Vous dirigerez la baballe avec deux touches 
du clavier (non redéfinissables), et il vous faut 
écraser (pacifique, hein ?) des ‘figures 
médiévales’’ (rois, dames et fous), en évitant 
les moines qui vous ramènent au début de 
la gouttière et les bourreaux qui vous font 
perdre la boule (l). 

Mäême si le graphisme est agréable (la pers- 
pective du damier du décor avançant est très 
bien rendue) et, si l'animation sonore est rela- 
tivement bonne, cela ne fait pas pour autant 
oublier la monotonie du jeu. Celui-ci est en 
effet trop facile, et la difficulté n’augmente 
pas beaucoup au cours du jeu. 

La boule est dirigée par deux touches, mais 
la pesanteur tend à la ramener au centre de 
la gouttière. Des objets magiques vous per- 
mettent de changer de gouttière (la couleur 
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du damier extérieur indique la gouttière sur 
laquelle vous vous trouvez). Une originalité 
cependant : le jeu compte les points comme 
un flipper, avec extra-balle et spécial. 
C'est un jeu qui conviendra aux plus jeunes 
de par sa simplicité d'emploi et sa facilité. 
Graphisme =3, animation=3, son=3, 
intérêt = 2 (1), originalité = 3. 


‘‘BUGS-BUSTER"" 
(FREE GAME BLOT) 
En français 


Un voyage au cœur de votre ordinateur et 
sans perdre la garantie, voilà ce que propose 
ce programme. Au fait, pourquoi vouloir exa- 
miner le circuit imprimé et ses circuits inté- 
grés ? Et bien tout simplement parce qu'il 
vient d'être envahi par sept cafards destruc- 
teurs de logiciels répondant aux doux noms 
de Rob, Rab, Horb, Carb, Song, Grab et 
Sicob. Chacun d'eux a sa spécialité : Song, 
comme son nom l'indique, détruit les datas 


correspondant à des instructions musicales. 
Rab efface carrément le contenu de la 
mémoire RAM. Quelle calamité ! Heureuse- 
ment, vous êtes là, muni de votre laser et de 
votre localisateur de bugs. Vous pouvez 
même placer des trappers permettant de les 
capturer. 

Une idée originale pour un jeu qui, par cer- 
tains aspects, ressemble à un ‘Donjon et 
Dragon’’. L'écran est divisé en fenêtres : à 
droite, le plan du circuit imprimé, où un point 
clignotant matérialise votre position. Au som- 
met de l’écran, nous trouvons la zone de dia- 
logue, et au milieu, une représentation en 3D 
de’ce que vous voyez. Les graphismes en ‘’Fil 
de fer’’ sont un peu sommaires, mais on s’y 
retrouve. Nous avons trouvé ce jeu assez 
stressant car, pour venir à bout des cafards, 
il faut combiner dextérité manuelle et raison- 
nement intellectuel. Au début, tout se déroule 
si vite qu'on est dépassé par l'ampleur des 
dégâts, mais on acquiert vite de l'expérience 
et le jeu devient alors plus intéressant. 
Graphisme =3, animation=3, son=2, 
intérêt =3. 


‘’INFERNAL RUNNER'’ 
(LORICIELS) 
En français 


Le sujet n’est pas très original. C’est le per- 
Sonnage qui doit trouver les clés pour sortir 
de la bâtisse infernale. Il est gâté, le pauvre ! 
Jugez plutôt : lasers, plaques électrifiées, 
monstres, barrières de feu, tapis et escaliers 
roulants, bains d'acide, mines, compres- 
seurs, herses, etc. Avec, en plus, les culs- 
de-sac d'où il ne peut repartir | Pas facile, ce 
jeu. 

En revanche, nous retrouvons le graphisme 
LORICIELS : dessins de grande finesse avec 
le souci du menu détail, au pixel près ! Ceci 
concerne aussi l’animation, jamais saccadée 
et toujours réaliste. Par exemple, les positions 
et les mouvements du personnage, quand il 
grimpe notamment. Autre petite merveille : 
les jets de flammes horizontaux, Wait Disney 
n'aurait pas fait mieux... 

La musique est riche, originale mais à la lon- 
gue lancinante. 

En bref, de très belles images, mais un jeu 
qui, à mon avis, manque un peu d'originalité ; 
un super ‘‘’Manic Miner’’ avec des tableaux 
très variés et des ‘’épreuves’’ originales. 
Graphisme =4, animation=5, son=2, 
intérêt = 3. 


‘‘EASI AMSCODE"" 
(AMSOFT) 
Utilitaire 

149 F 


Cet utilitaire s'adresse à tous ceux qui débu- 
tent en langage machine et qui cherchent à 
en percer les tout premiers secrets. Grâce à 
lui, vous écrirez vos tout premiers octets en 
langage Z80 et pourrez exécuter vos premiè- 
res lignes de programme sous le contrôle 
d'un moniteur. 

EASI AMSCODE sait charger un fichier (ou 
sauvegarder), ‘‘’désassembler'” (dommage 
que ce soit seulement pas à pas), c’est-à-dire 
produire la liste des mnémoniques correspon- 
dants au langage machine, ‘‘’dumper”’ la 
mémoire sous formes ASCII et hexadécimale, 
que le programme soit en RAM ou en ROM. 
Il'est également possible, et c’est là que les 
débutants apprendront beaucoup, de lancer 
et exécuter un programme en pas à pas, Cha- 


que instruction étant décodée puis exécutée. 
Le contenu de tous les registres et indicateurs 
est affiché. 

Entre autres options au menu, vous pourrez 
convertir facilement le décimal en hexa et 
binaire. 

Pour être complet, il faut également savoir 
qu'EASI AMSCODE permet la sortie de lis- 
tings, dumpés ou désassemblés, sur une 
imprimante. 

Quelques petits points gênants, comme 
l'auto-repeat, lors de la saisie d’une option 
du menu, ou l’ahsence de désassemblage en 
continu, se feront vite oublier des débutants 
qui découvriront, avec intérêt, le fonctionne- 
ment du Z80. 

Au fait, pourquoi EASI... avec un | ? 
Graphisme =3, Animation=2, Son=3, 
Intérêt = 3. 


‘‘WARRIOR'‘ 
(RAINBOW) 
Jeu de rôle 
160 F 


WARRIOR est un jeu de rôle, écrit en fran- 
çais. Nous avons reçu et essayé la version 
cassette. Une version disquette, plus 
complète, sera bientôt mise sur le marché. 
Les énigmes et graphismes seront différents. 
Après un générique musical, le programme 
se charge. Vous patienterez en contemplant 
un dessin de présentation rappelant une 
photo virée sépia. 

Le jeu est un mélange de graphisme (de type 
vectoriel) et de texte. Le tout apparaît dans 
une fenêtre encadrée par un décor un peu 
‘théâtral’, du plus bel effet. L'action se 
passe dans une sorte de labyrinthe, reliant 
plusieurs salles. Avant de vous y engager, 
pour y rechercher, combattre et tenter 
d'anéantir GRAVEN, un monstre qui terrorise 
le pays, vous ferez vos petites emplettes chez 
le ‘‘quincaillier’’ du coin pour y acheter de 
quoi combattre. 

Au cours de votre exploration, vous rencon- 
trerez des monstres (pas mal dessinés) qu'il 
vous faudra combattre. Si vous n'êtes pas 
d'attaque, vous pouvez parlementer ou fuir. 
Les combats vous feront entendre des bruits 
suggestifs, tout en étant ponctués d'onoma- 
topées apparaissant sur l'écran. 

Pour les amateurs de ce genre de jeu... 
(Anecdote : le rapprochement du titre ‘’WAR- 
RIOR'’ et de l'éditeur ‘’RAINBOW/"" avec des 
événements récents est, paraît-il, du plus pur 
hasard. La cassette était déjà prête avant les 
faits). 
Graphisme = 3, 
intérêt = 3. 


animation=2, son=2, 


‘*3D FIGHT‘ 
(LORICIELS) 
En français 


Vous pilotez un vaisseau spatial au ras d'une 
planète hostile. Du déjà vu ? Pour le sujet oui, 
mais pas avec une si belle animation ! Tout 
est soigné, la finesse du graphisme, le son, 
la nervosité du joystick. Heureusement, car 
il n'y a qu'un seul niveau et il est assez 
rapide ! 


Vous voyez votre vaisseau de dos et vous le 
déplacez dans les quatre directions, tandis 
que le paysage fonce sur vous. Cette tech- 
nique d'animation rappelle celle de ‘’RALLY 
Il’ (même éditeur) mais en mieux encore. 
Vous devez abattre le maximum d’astronefs 
ennemis venant à votre rencontre, en évitant 
d'être dans leur angle de tir. Attention | cer- 
tains arrivent par derrière, mais votre radar 
vous prévient. Le plus dangereux est la pluie 
de météorites, de superbes boules de feu. Un 
conseil : mettez-vous dans l’angle en haut à 
gauche et laissez passer l'orage | 


Le risque est de tomber en panne de fuel. 
Pour éviter cela, il faut détruire des réserves 
de carburant au sol (drôle d'idée). On ne peut 
les atteindre qu’en mitraillage en rase-motte, 
puis en redressant au dernier moment, afin 
de ne pas les percuter. Aussi, je placerais ce 
logiciel non pas dans les ‘’arcades soucou- 
pes’’, mais plutôt dans les simulateurs de vol. 
A mesure que l’on progresse, le paysage (très 
stylisé) change. Il faut noter que l'animation 
est sans saccades, continue, mais rapide. 
Le son est excellent et omni-présent ; pen- 
sez à baisser le volume après 22 heures. 
Un jeu très ‘‘enlevé’’ qui plaira beaucoup aux 
jeunes. 

Graphisme = 4, animation=5, son=3 à 4, 
intérêt = 4. 


‘*’ASSEMBLEUR DR. WATSON’ 
(MICRO APPLICATION) 
En français 


C'est un ensemble livre + cassette pour s’ini- 
tier à l’assembleur. Le livre, bien épais, est 
d'une clarté remarquable et s'adresse au 
‘tout débutant'”, mais sans niaiseries et en 
commençant par les choses simples, assor- 
ties de petits exemples très courts. Pour les 
mettre en pratique : l’assembleur de la face 
A de la cassette. Certes, il n’a pas la puis- 
sance du fameux ‘‘’Zen'’, mais il a la clarté 
du livre. On est obligé de comprendre |! C'est 
l'auto-école de l’assembleur. A l'écran, un 
menu (en français) que l’on peut rappeler à 
tout moment ; c’est sécurisant. || comporte 
le strict nécessaire, plus des ‘’planches de 
salut’ pour débutants. 

Les options du menu sont présentées dans 
l'ordre chronologique normal : entrée du 
‘‘texte’’, listage, correction de ligne, assem- 
blage, qui signalera les fautes de syntaxe 
avec le numéro de ligne, sauvegarde, char- 
gement, renumérotation, listage sur impri- 
mante, possibilité de faire un tour vers le 
Basic et de revenir au WATSON ; et enfin, 
essai par CALL (toujours sauvegarder 
avant. ). Signalons un bug de taille dans 
l'option imprimante : parfois le listing est 
complètement décalé à gauche avec perte de 
caractères. C’est dommage et peu pardon- 
nable. 

La face B de la cassetteillustre des petits pro- 
grammes présents dans le livre, tels quelques 
‘’RSX'’ comme CIRCLE, BOX et TRIANGLE 
(pas terribles. ). 

J'estime que c’est un chef-d'œuvre de péda- 
gogie, car expliquer l’assembleur est chose 
très difficile si on ne veut pas décourager le 
lecteur. L'auteur, Tim HERBERTSON, n'est 
pas tombé dans la facilité de la ‘logique uni- 
versitaire’” ; c’est le seul à ne pas commen- 
cer par le comptage binaire | Il en parle bien 
plus tard, et juste ce qu'il faut. Ainsi, c'est 
buvable.. Le prix de 195 FF pour l’ensem- 
ble est, lui aussi, facile à avaler. 
Performances = 2, clarté =5, intérêt =5. 
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LES 
LOGICIELS; 


D'OUTRE-MANCHE 


e@ EX po 
ous vous proposerons, dans cette rubrique, une sélec- 


tion mensuelle de logiciels (jeux ou utilitaires) venus 
d'Angleterre. Ne croyez pas qu'il vous faudra traver- 
ser le CHANNEL pour vous les procurer : ils sont disponibles 
en France et pour la plupart importés par GUILLEMOT 


INTERNATIONAL SOFTWARE. 


‘’BEACH HEAD”' 
(ACCESS) 
En anglais 


Genre wargame, mais un vrai. Enfin ! L'ani- 
mation est irréprochable, le jeu est très varié, 
les tableaux nombreux et très différents. Le 
graphisme est super soigné et le son est ‘’réa- 
liste’’. Bref, un chef d'œuvre artistique et 
technique, à ranger à la place d'honneur à 
côté de Sorcery… 

Il s’agit d’un débarquement. Premier tableau : 
une carte, vous dirigerez votre escadre, soit 
vers l'entrée de la baie, soit vers un étroit 
goulet où il faudra se faufiler entre mines et 
torpilles. Avantage : vous surprenez l'ennemi. 
Deuxième tableau : vous subissez une atta- 
que aérienne et vous commandez votre DCA. 
C'est mon passage préféré car l'animation est 
splendide ! Les avions surgissent de l’hori- 
zon, deviennent très gros (et détaillés) puis 
décrochent en haut de l'écran. On règle notre 
DCA en site et azimut. Si vous êtes passé par 
le goulet, les avions seront moins nombreux. 
Troisième tableau : la bataille navale avec les 
bateaux qui vous restent encore. En face, les 
bâtiments ennemis à des distances différen- 
tes. Vous réglez votre canon avec précision 
(en degrés par le joystick). Ce n’est plus du 
tir en rafale | Si le coup est trop court, on voit 
le ‘‘’trou dans l’eau’”, et la distance d'erreur 
est indiquée pour corriger le tir. Ce n’est plus 
un jeu d'arcade, mais de ‘‘pifométrie’”. Très 
bien. 

Quatrième tableau ; si vous sortez vainqueur 
du combat naval, c'est le débarquement. 
Chacun de vos navires rescapés (il y en avait 
dix au départ) débarque deux chars qu'il faut 
piloter sur le terrain. On retombe alors dans 
le jeu d'arcade. Après cette dure traversée 
de casemates, ils arrivent en face de la for- 
teresse à détruire. Pas facile d'arriver jusque 
là avec suffisamment de chars | 

La notice est copieuse, mais elle est hélas en 
anglais. 


‘’AIRWOLF"" 

(AMSOFT) 

Arcades 

Support cassette 109 F 
Support disque 135 F 


Avez-vous déjà piloté un hélicoptère dans un 
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immense dédale de cavernes ? Non, certai- 
nement, et vous allez pouvoir juger de la dif- 
ficulté en mettant à l'épreuve votre habileté 
sur ce jeu. 

As du pilotage sur ‘‘voilures tournantes'", 
votre mission est de délivrer 5 scientifiques 
retenus prisonniers dans une base souter- 
raine. Le hic est que cette immense caverne 
est protégée par des dispositifs anti-intrusion 
parmi les plus sophistiqués. 

Il faudra les anéantir un par un pour progres- 
ser. Heureusement, votre hélico (le plus 
moderne qui soit) est armé en conséquence. 


Le piloter dans les goulets étroits, sans heur- 
ter les parois, ne sera pas chose facile. De 
plus, il faudra trouver le chemin qui mène à 
l'endroit où sont détenus les savants. Il ne 
vous restera plus qu’à les ramener chacun à 
son tour. 

Sachant que l’hélico n’est pas stable (il faut 
constamment agir sur les commandes pour 
le maintenir en vol horizontal) et que les gou- 
lets sont étroits, nous vous laissons imagji- 
ner la difficulté de l’entreprise. 

La réalisation est excellente avec une présen- 
tation et des graphismes soignés. Le jeu n’est 
pas facile et exaspèrera les débutants. 
ATTENTION ! le joystick est indispensable ! 


‘’AIR TRAFFIC CONTROL" 
(HEWSON CONSULTANTS) 
Simulation 

86 F (cassette) 


Tout le monde connaît les contrôleurs de tra- 
fic aérien, pour en avôir entendu parler à l’oc- 
casion d’une grève ou simplement pour avoir 
lu des reportages sur leur travail. Certains ont 
peut-être déjà entendu à la radio leurs 
conversations avec les pilotes d'avions. 
ATC simule la situation d’un contrôleur dans 
un grand aéroport : Londres-Heathrow et 
Amsterdam-Schipool. 

Simulation très réaliste, ATC vous mettra 
dans la peau du contrôleur et vous ressenti- 
rez la même tension nerveuse. 

Il y a plusieurs niveaux (de 1 à 8) et un démar- 
rage progressif est conseillé pour s'habituer 
aux situations. . 

L'écran représente la vision radar de la zone 
d'approche avec les pistes et les balises. Les 
avions apparaissent sous forme de ‘‘plots- 
radar’’ et sont identifiés par une lettre et un 
vecteur. Sur le côté droit de l'écran, les 


due 
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‘’strips’’ des vols avec identification des piles 
d'attente (‘‘’holding-stock’’) où apparaissent 
l'identification radar, le type d'appareil, son 
niveau de vol, son cap, sa vitesse. En haut 
de l'écran, la zone de dialogue radio sur 
laquelle s'affichent les ordres que vous don- 
nez aux différents appareils. 

Il y a 5 types d'appareils différents, du 
Concorde au Navajo, ce qui implique des 
réactions différentes à vos ordres. 

Le but du contrôleur est de poser 10 avions 
en 30 minutes. Vous serez noté sur la rapi- 
dité et la sécurité avec lesquelles vous aurez 
agi. Pour poser un avion, il faut le mettre cor- 
rectement dans l’axe de piste (aides radio, 
localizer et glide). Il y aura lieu de tenir 
compte, aux niveaux de difficulté les plus éle- 
vés, de l’espacement dans le temps et dans 
l'espace, des avions. Les derniers niveaux 
présentent des situations identiques à celles 
que peut rencontrer un contrôleur aérien. 
Excellente simulation, la seule dans le genre, 
ATC devrait satisfaire les passionnés d’avia- 
tion qui ont envie de se mettre à la place d’un 
contrôleur. 


GUILLEMOT 
International Software 


B.P. 2 - 56200 LA GACILLY 
tél 99 08 83 54 et 99 08 83 17 


du lundi au samedi de 9 à 19h. 
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INITIATION: 
LES TABLEAUX 


DEFINITION 


C'est un groupe de variables que 
l’on numérote afin qu’elles soient 
plus faciles à manier et aussi à 
baptiser ! Exemples : les douze 
mois de l’année. On pourrait les 
définir ainsi : A$ = ‘‘’janvier’":B$ = 


‘‘février’’:C$= etc. pénible ! 
Groupons-les dans une liste 
numérotée (on dit aussi INDI- 
CEE). M$(1)=""janvier"’:M$(2) = 
‘“‘février'’: etc. Ce sont des 
‘variables indicées”’. 

Si l'indice ne dépasse pas dix, 
tout se passe bien, au-delà (et 
c'est le cas pour les douze mois), 
il est obligatoire de le signaler à 
l'avance : une réservation de 
place. 

DIM M$(12) à mettre dans les 
toutes premières lignes du pro- 
gramme (une sage précaution), 
même si l’on ne s’en sert que 
beaucoup plus loin. 

S'il s'agissait des sept jours de la 
semaine, vous pouvez vous 
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D 


ne des richesses du Basic, 

des possibilités que le débu- 
tant ne soupçonne pas, mais 
aussi une source de pièges si on 
ne respecte pas certaines règles 
(très différent du DIM du SINC- 
LAIR ZX81). 


dispenser de déclarer au début 
DIM J$(7), mais sachez (qu'à 
votre insu) l'ordinateur va créer 
un DIM M$(10) à l'instant même 
où vous entrerez J$(1)=""Di- 
manche’’.… D'où un petit gaspil- 
lage de réservation dans la 
mémoire. 

Tout cela est bien sûr valable 
pour les variables numériques. 
Dans nos deux exemples, il 
s'agissait de simples listes à une 
seule ‘‘colonne'’, mais on peut 
définir un tableau à plusieurs 
colonnes. Il faut bien sûr décla- 
rer le nombre de ces colonnes. 
Autrement dit, il faut déclarer les 
DIMENSIONS (DIM vient de là) 
du tableau. Exemple : 

— DIM NOM$(80,3) signifie 80 
lignes et 3 colonnes, soit 
80x3=240 variables chaînes 
différentes. 

— NOM$ (24,2) désigne la chaîne 
se trouvant en ligne 24, colonne 
n° 2. 

— Seul le programmeur connaît 
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le nom de la rubrique-colonne. 
Exemple n° 1 =NOM, n° 2 =pré- 
nom, n° 3= adresse. || a même 
intérêt à le noter dans un REM 
afin de ne pas l’oublier ! En effet, 
si vous entrez NOM$1(32,3) = 
‘’Georges’”, il n’y aura pas de 
‘“’syntax error'’… 


INDICE ET COLONNE ZERO 


Ils existent bel et bien ! Ainsi, 
notre DIM NOM$(80,3) va de la 
ligne O à 80 et de la colonne O à 
3, soit au total 81x4=324 
emplacements et non pas 
240 !.. Quel gaspillage. Puisque 
nous ne voulons que trois colon- 
nes, il fallait déclarer DIM NOM$ 
(80,2) avec n°0=nom, n°1= 
prénom, n°2=adresse. Quand 
nous avions écrit DIM M$(12), 
l'ordinateur l’a interprété comme 
DIM M$(12,0), et il n’y a qu'une 
seule colonne ; mais treize lignes. 
En étant radin, on aurait pu 
annoncer DIM M$(11) et entrer 


 M$(0)=" ‘janvier’. M$(11)= 
‘’décembre”’. lci, c’est dommage 
puisque l'indice n’est plus égal au 
‘’numéro'’” du mois. 

Dans la pratique, voilà ce que l'on 
fait : 

On ‘‘récupère’’ la colonne zéro, 
mais on n'utilise pas la ligne zéro. 
Pourquoi ? 

— parce que le plus souvent les 
lignes sont bien plus nombreuses 
que les colonnes ; 

— parce que la ligne zéro est sou- 
vent utilisée pour y copier provi- 
soirement une valeur, une ‘‘’case 
transit’”, un refuge. C'est ce qui 
se passe dans le classique ‘‘tri à 
bulle”’. La ‘‘bulle’” est justement 
la ligne zéro, et cela clarifie l’écri- 
ture du tri ; 

— parce que dans un tableau de 
valeurs numériques, il est plus 
clair de loger en ligne zéro les 
totaux des valeurs de chaque 
colonne... 

En effet, il est fréquent que l’on 
définisse un nombre maximum de 
lignes, une sécurité, une pré- 
voyance, en estimant que le 
tableau ne sera jamais complète- 
ment rempli. Si un numéro de 
ligne a dans le programme une 
signification bien précise (exem- 
ple : les totaux sur les lignes rem- 
plies), il est logique que ce soit la 
première, donc la zéro. OK ? 


LA TROISIEME DIMENSION 


Dans l'esprit, on voit notre DIM 
NOM$ (80,2) comme un tableau 
dessiné sur une feuille de papier, 
mais que représenterait un DIM 
NOM$(80,2,2) ? Tout simple- 
ment trois feuilles-tableaux ayant 
les mêmes quadrillages et les 
mêmes noms de rubriques. 

Par exemple, chaque feuille est la 
liste des membres de votre club, 
mais n°0=1984, n°1=1985, 
n°2= 1986. 

Ces tablaux à trois dimensions 
(trois paramètres) sont plutôt uti- 
lisés avec des variables numéri- 
ques car ils simplifient l'écriture 
de certains calculs. Un exemple : 


DIM VENTE(24,5,3) 


représente 24 articles, 5 maga- 
sins, 3 années. Tous les indices 
zéro sont des totaux (lignes, 
colonnes et feuilles). La colonne 
n° 2 désigne le magasin de Tou- 
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louse. Par des boucles FOR 
NEXT, on a rempli les cases de 
la feuille zéro en totalisant les 
cases correspondantes des feuil- 
les 1, 2 et 3 (1983, 1984, 
1985). On veut savoir combien 
Toulouse a déjà vendu d'articles 
n° 9 : PRINT VENTE (9,2,0). 
Quel pourcentage cela représente 
sur l'ensemble de nos cinq maga- 
sins ? 


PRINT 100 +VENTE(9,2,0)/ 
VENTE(9,0,0);'"?"" 


Dès que ce ‘‘tableau cubique’ 
est en RAM, vous voyez qu'on 
peut se livrer aux statistiques les 
plus folles et en une seule ligne 
de Basic. 


L'ENCOMBREMENT MEMOIRE 


Reprenons notre DIM VENTE(24, 
5,3). Combien de variables ? 
25x6x4=600. S'il s’agit de 
nombres réels, cela fait au moins 
600 x 5 = 3000 octets, si ce sont 
des nombres entiers (non déci- 
maux et inférieurs à 32767), ce 
n'est que 600 x 2 = 1200 octets. 
C'est peu, mais notre DIM ne 
comportait que 24 lignes. 

Si au lieu de nombres il s’agit de 
chaînes, c'est pire encore car il 
faut compter un octet par carac- 
tère. Même si le tableau n’est pas 
rempli ! N'oubliez pas que vous 
avez réservé sa place en début de 
programme | 

Comment éviter des gaspillages 
d'octets ? 

— Pour entrer des chaînes, 
calibrez-les après chaque INPUT. 
Exemple avec coupure à 12 
caractères maxi : 


IF LEN(C$) > 12 THEN C$ = LEFT 
(C$,12) 


L'absence de calibrage est dan- 
gereuse, car si une seule chaîne 
est très longue (40 caractères 
pour une adresse), la réservation 
mémoire va faire un bond en 
grosseur. 

— Pour un grand tableau de 
valeurs numériques, essayez 
d'utiliser des nombres ‘'entiers”’. 
Pas toujours facile ! S'il y a obli- 
gatoirement des nombres déci- 
maux (2 décimales) et s'ils sont 
toujours inférieurs à 320, 
multipliez-les par cent ; mais 
n'oubliez pas l'opération inverse 


pour les re . Autre nes 
tique qui porte le maximum à 640 
(s'ils sont toujours positifs) : 


N%(1,J) = NB * 100 — 300 
(% — entiers) 


Opération inverse : 
NB =(N%(1,J) = 320)/100 


Ces manœuvres sont payantes 
car l'encombrement mémoire 
passe ainsi de cinq à deux ! 


LES FAUTES CLASSIQUES 


La plus banale est le ‘‘Array 
already dimensioned'” (Array = 
tableau). Voici pourquoi : assez 
loin dans votre programme, vous 
avez eu besoin d’un DIM, et vous 
le déclarez dans les lignes 3000, 
puis vous le remplissez ; jusqu'à 
là aucun problème. Puis, en tritu- 
rant votre listing, vous ajoutez 
des GOTO par ci par là ; le dérou- 
lement du programme va donc 
passer une seconde (et der- 
nière !) fois sur la déclaration du 
DIM, il n'aime pas cela et il 
plante. 

De grâce, ne disséminez pas vos 
DIM dans le listing : groupez-les 
en une seule ligne en tout début 
du programme. Trois raisons à 
cela : 

— ils sont à l'abri d'un GOTO: 
planteur ; 

— pour s'assurer de leur tailles 
(ou les modifier), on les retrouve 
immédiatement en ligne n° 50 ou 
n° 100 ; 

— c’est plus vite écrit, car une 
virgule remplace ‘’:DIM”". Exem- 
ple : 


100 DIM NB(80,2), NOM$(24, 


3), LT%(50,1) 


Autre code d'erreur, le ‘‘Sub- 
script out of range”’, quand vous 
demandez un numéro de ligne ou 
de colonne plus grand que les 
limites fixées. La cause est sou- 
vent une ‘‘’incrémentation’” d'in- 
dice sans surveillance. Exemple 
classique : le remplissage d’un 
DIM NOM$ (30) par des INPUT, 
en ne connaissant pas le nombre 
de variables que l'on va effecti- 
vement y mettre : 


400 1=1+1 
410 INPUT NOM$ (1) 
420 IF NOM${(I) =""Q"" THEN 500 
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LÉLLLLLLEILLELLLLLLLLLLLLILLLLEI 
430 GOTO 400 
500 ‘Suite du programme 


Trois belles gaffes : 

— emporté par votre élan, vous 
tentez d'entrer un 31° nom : 
plantage ; 

— vous vous arrêtez au dou- 
zième, mais le treizième nom 
n'est pas vide, il s'appelle 
HO’. , 

— VOUS savez que vous venez 
d'entrer le 30° et dernier nom et 
déjà le code d'erreur apparaît en 
ligne 410, car il refuse INPUT 
NOM$ (31). 

Voilà, un bon petit exercice : 
essayez de réécrire ce passage 
tout simple pour qu'il soit sans 
défauts (testez-le avec un DIM 
plus petit). 


LA COMMANDE ERASE 


Supposons que vous n'ayez plus 
besoin de l'encombrant DIM NB 
(200,3) et que vous souhaitez 
récupérer son espace mémoire à 
d’autres fins. Il suffit d'écrire : 


NOUVELLES DE SUISSE 


Sémaphore Logiciels et Gillsoft 
International Ltd. — les créateurs 
gallois du célèbre programme 
‘The Quill”’ — ont conclu un 
accord aux termes duquel les 
deux sociétés collaboreront à la 
production de la version française 
du programme sur l'AMSTRAD, 
qui sera mis en vente dès janvier 
1986. 

Ce programme de création 
d'aventures qui a été vendu à plu- 
sieurs milliers d'exemplaires en 
Angleterre, en Allemagne et en 
Scandinavie, sera réécrit dans 
l'optique de la mystique des 
légendes et chansons de geste 
françaises. 

L'utilitaire graphique ‘‘The Illus- 
trator'” qui permet de créer et 
d'introduire des illustrations dans 
les aventures produites avec 
"The Quill’” sera aussi traduit et 
publié par Sémaphore. 
Plusieurs aventures créées avec 
Quill ont été publiées avec suc- 
cès. Une des caractéristiques du 
programme étant qu'aucun droit 
d'auteur n'est demandé pour 
cette utilisation. 

Un autre accord de collaboration 
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ERASE NB 


Toutes ses variables n'existent 
plus et DIM NB(200,3) non plus. 
Vous pourriez même le redéfinir 
en DIM NB(20,2).. (le cas est 
rare). Attention à la faute de 
syntaxe du genre ERASE 
NB(200,3). Seul le nom de la 
variable suit ERASE, sans paren- 
thèses, ni paramètres. 


TABLEAUX A DEUX 
TYPES DE VARIABLES 


Si le DIM annoncé concerne des 
variables chaînes, on ne peut y 
introduire des nombres et vice- 
versa. Or, ce besoin est courant, 
exemple, notre tableau NOMS$ 
où, en plus des colonnes nom, 
prénom, adresse, vous voudriez 
ajouter des variables numériques 
(année de naissance, montant de 
la cotisation au club, etc... ). 
Comment faire ? Deux solutions : 
— Transformer vos nombres en 
chaînes par la fonction STR$. 
C'est simple mais encombrant en 


a été passé avec Hisoft qui verra 
la publication en français, au 
début de 1986, des célèbres pro- 
grammes pour l'AMSTRAD : 
Hisoft ‘’C'’ et CP/M 80 ‘‘C’’ 
Hisoft ‘Devpac 80'' CP/M 
(assembleur/désassembleur) 
Hisoft ‘‘Pascal‘’ et CP/M 80 
‘Pascal’. 

Ces logiciels sont considérés par 
la presse spécialisée anglaise 
comme des classiques dont la 
qualité n’a d’égal que le service 
après-vente offert par la maison 
Hisoft. | 

Les autres programmes de cet 
éditeur anglais seront traduits 
dans le courant de l’année pro- 
chaine, et Sémaphore Logiciels 
assurera le service et la mise à 


jour pour les pays de langue fran- 


çaise. 
CE Fm St "22 | 
GONFLEZ VOS MACHINES 


La SARL JAGOT & LEON vous 
informe de l’industrialisation 
d’une nouvelle carte d'extension 
pour les ordinateurs AMSTRAD 
(CPC 464, 664 et 6128). 

Il s’agit d’une extension mémoire 
de 64 k-octets se présentant 
sous la forme d'une disquette 


a des calculs à faire (par la fonc- 
tion VAL). 

Créer un autre tableau DIM, 
numérique celui-là, mais dont les 
numéros d'indices vont corres- 
pondre. Exemple : DIM NOMS$ 
(80,2), NOM%(80,3) soit pour 
chaque individu (=ligne) trois 
variables chaînes plus quatre 
Variables numériques de seule- 
ment deux octets chacune. 
Ah !... Vous dites qu'il faudrait 
une cinquième variable numéri- 
que qui ne peut être un nombre 
entier, donc ‘‘réel’’ à cinq 
octets ? Rien de plus facile, on 
ajoute simplement DIM NOM 
(80), et Basic y reconnaîtra les 
siens. 


CONCLUSION 


Nous pensons qu'à présent les 
tableaux DIM n'ont plus de 
mystères pour vous, et que ces 
règles, méthodes et astuces vous 
seront très utiles pour concevoir 
vos programmes. 


électronique, similaire à celle du 
CPC 6128. Son prix de vente 
public est fixé à 800 F TTC. Elle 
nécessite l’utilisation d’un cordon 
de liaison pour la relier à l’ordina- 
teur d'une valeur de 150 F TTC. 
Ce cordon peut être employé 
pour tous les autres périphériques 
Jagot & Léon. Renseignements 
au 77.33.13.82. 


NOUVEAUTES 

LORICIELS 

(disponible) 

LORIGRAPH, excellent logiciel de 
création graphique avec menu 


. iconographique. 


COBRA SOFT 

(disponible) 

DOSSIER G, ou les suites de l’af- 
faire du Rainbow Warrior sous 
forme d'enquête. 

ERE INFORMATIQUE 

(sortie prévue prochainement) 
EDEN BLUES, jeu d'aventure 
interactif, entièrement animé et 
en 3D.. 

CONTAMINATION, fiction. Vous 
luttez contre la propagation d’une 
épidémie grave. 

KRAFTY et XUNK, dessin animé 
interactif en 3D. 


Vente Informations Services Micro-Ordinateurs 


Micro-ordinateurs damiliaus 


84, bé Beaumarchais - 75011 Paris 
Métro Bastille ou Chemin Vert 
De 10 h à 20 h sauf dimanche et lundi 
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C’EST QUOI 
LE CATAMSTRAD: 


D logiciels utilitaires D interfaces 
D logiciels de jeux > imprimantes 
D logiciels éducatifs © livres 

D accessoires De 


C’est le CAT Abague d'aM ST RAD 
enfin disponible. 


mm 43.38.60.00 


# 


J'ai attrapé 
une SOUrTs.!/ 


[1 mstrad Computer Show de Londres nous a donné l'occasion 


de découvrir la souris AMX pour AMSTRAD développée par 
Advanced Memory Systems. Non seulement de découvrir, 
mais aussi de rapporter en France un exemplaire de présérie de la 
bête pour en effectuer un essai complet, ceci au grand dam de nos 
confrères britanniques qui durent se contenter de la tester sur le 
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stand. 


Dans un emballage marqué BBC 
MICRO (l'emballage AMSTRAD 
n'était pas encore prêt), nous 
avons trouvé une souris, un bof- 
tier d'interface et une cassette. 

La souris est constituée d’un boî- 
tier noir tenant bien en main, d’un 
câble souple d'environ 1,50 met 
d’un connecteur à verrouillage, se 
branchant sur le boîtier interface. 
Sur la face avant du boîtier, nous 
trouvons trois poussoirs de cou- 
leur rouge servant à exécuter un 
ordre, à annuler un ordre et à 
déplacer des dessins sur l'écran. 
Sur le dessous, nous trouvons la 
sphère métallique qui roule sur la 
table et quatre petites sphères de 
nylon situées aux quatre coins et 
destinées à faciliter le déplace- 
ment du boîtier. 

Etant depuis longtemps utilisa- 
teur de la souris APPLE, nous 
avons effectué une comparaison 
des deux modèles. Voici, en vrac, 
nos impressions : 

— la souris APPLE est plus jolie, 
mais ça se discute, 

— la boule métallique d'AMX ne 
prend pas la poussière, contrai- 
rement à la boule en caoutchouc 
d'Apple qui encrasse les rou- 
leaux. 

— le cordon AMX est plus sou- 
ple, 

— la souris AMX glisse mieux sur 
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la table. On peut même dire 
qu'elle roule, 

— le branchement Apple est plus 
élégant car l'interface est incor- 
porée à l'ordinateur. 

Ces comparaisons étant faites, 
voyons le boîtier d'interface. Il se 
branche directement sur la prise 
joystick de l'AMSTRAD et pré- 
lève son alimentation par un cor- 
don muni de prises qui s’interca- 
lent en série dans l'alimentation 
de l'ordinateur. Nous avons 
démonté les boîtiers et découvert 
une mécanique et une électroni- 
que de fort belle facture. Les 
composants sont installés sur des 


circuits imprimés en époxy. 


LES LOGICIELS 


La souris AMX est livrée avec une 
cassette ou une disquette conte- 
nant quatre logiciels dont le plus 
accessible est ART. Il s’agit d'un 
logiciel de dessin utilisant les icô- 
nes et les menus déroulants. Rap- 
pelons que les icônes sont des 
symboles graphiques représen- 
tant une fonction du logiciel, que 
l'on choisit en y superposant le 
curseur de la souris et en pres- 
sant le bouton. On y trouve tou- 
tes les fonctions usuelles de ce 


type de programmes de dessin, à 
savoir : Crayon, gomme, aérogra- 
phe, différentes tailles de pin- 
ceaux, trames, polices de carac- 


tères; comme notre programme. 


‘Cherry-Paint, ART est mono- 
chrome. La souris apporte un 
confort d'utilisation supérieur au 
joystick ou au clavier, et la beauté 
de votre œuvre sera fonction de 
vos talents de dessinateur et de 
votre imagination. Notons que les 
images peuvent être sauvées sur 
cassette ou sur disque et impri- 
mées sur papier, pourvu que vous 
disposiez d’une imprimante 
AMSTRAD ou compatible 
EPSON. 


L'excellent manuel d'utilisation 
vous explique comment utiliser la 
souris dans vos programmes et 
créer vos propres trames à l’aide 
du programme Pattern Designer, 
ou vos icônes avec le pro- 
gramme... Icon Designer. 

Le dernier programme du lot : 
AMX Control apporte un jeu de 
14 instructions supplémentaires 
spécifiques à la souris au Basic de 
l'AMSTRAD. On pourrait qualifier 
ce programme de MOS (Mouse 
Operating System). Par exemple, 
l'instruction IMovepointer efface 
le curseur, raffiche l’écran d'ori- 
gine et replace le curseur à la 
nouvelle position définie par la 
souris. De belles heures de pro- 
grammation en perspective. 

Il ne nous reste qu'à attendre 
qu'elle soit importée en France et 
à espérer qu'elle sera vendue à un 
prix voisin de son prix en Angle- 
terre, qui est de 69,95 livres. 
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COMMENT CA MARCHE ? 


La souris contient une boule métallique qui roule sur la table quand 
on la déplace. Cette boule entraîne deux rouleaux diposés à 90° 
l’un par rapport à l’autre et chacun de ces rouleaux entraîne un 
disque métallique muni de fentes qui tourne en passant dans une 
boîte à lumière. Dans la boîte à lumière, appelée optocoupleur, on 
trouve, d'un côté une diode LED qui émet de la lumière, et de l'au- 
tre, un phototransistor qui capte la lumière passant par les fentes 
du disque. Ce phototransistor génère des impulsions électriques 
dont la cadence est proportionnelle à la vitesse de rotation du dis- 
que et, par conséquent, aussi à la vitesse de déplacement de la 
souris. Les circuits électroniques de l'interface traitent ces impul- 
sions, détectent le sens et la vitesse de rotation des disques et 
génèrent de signaux qui sont appliqués aux quatre commandes 
de la prise joystick de l'AMSTRAD. On notera que la souris ne fonc- 
tionne correctement que si on la déplace sur une surface plane 
démunie d'aspérités. 


TNT 


CON-PAGE #0 
AE 
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Christian MAURIN vous propose en moins 
d'un kilo-octet un bon utilitaire qui permet de 
cataloguer une cassette de manière plus 
détaillée que la commande CAT tradition- 
nelle. La présentation fournit, sous forme de 
tableau, les renseignements suivants : Nom 
du fichier, n° du bloc, dernier bloc ? 
(Oui=&FF, Non=0), type du fichier 
(Bp = Basic protégé, As = Ascii, Bi= Binaire, 
Ba = Basic), longueur du bloc, adresse de 
début, premier bloc ? (Oui=&FF, Non =0), 
longueur totale du fichier, adresse d’exécu- 
tion d’un programme en langage machine, et 
enfin des datas qui ne sont pas utilisés par 
le système d'exploitation, mais servent par- 
fois à cacher un programme ou des informa- 
tions secrètes. Tous les chiffres sont en hexa, 
sauf les numéros de blocs. Christian recevra 
en récompense un superbe livre d'aventure. 


10 MODE 2:MEMORY 38899:FOR 1=38900 TO 18 
QULSREAD A:POKE JQA:NEXT:DEF FNF$(A)=HEX 
$U(PEEK(A)+256kPEEK(A+1)),4):DEF FNaÿ(a) 


er niveau 


2e niveau 


Piano 


- COURS DE SOLFEGE 


- COURS DE CLAVIER 


- AMSTRADIVARIUS 
Composition musicale 
3 voies polyphoniques 


qu 


KILOBYTE 


ZHEXS$S((PEEK(a)),2):a=3 
15 DATA 62,44,17,64,b4,33,858,8&98,205,16 
1,188,201 

20 A$(0)="RA":a$(1)="BP":A#$(2)="BI":A$(b 
)=" AS" 

24 PLOT 0,.375:DRAUR 640,0 

25 FOR i=1 TO 9:READ w:PLOT uw, 399: DRAKR 
0,-400:NEXT 

28 DATA :30,156,180,205. 248, 270,272,468, 
412 

50 LOCATE 2,1:PRINT'nom ":LOCATE 18,1:PR 
INT'R":LOCATE 21,1:PRINT'DP":LOCATE 1,3: 
LOCATE 24,1:PRINT'TF":LOCATE 27,1:PRINT” 
LON B":LOCATE 33,1:PRINT'DER":LOCATE 38, 
1:PRINT'PR?":LOCATE 42,1:PRINT'LON F°:L0 
CATE 48,1:PRINT'EXEC":LOCATE 55,1:PRINT* 
DATAS 7?" 

55 CALL 38900 

60 LOCATE 1,a:FOR 1=39000 TQ 39015:PRINT 


250 F / cass. 
290 F / disq. 
250 F / cass. 
290 F / disqa. 


145 F / cass. 
185 F / disq. 


145 F / cass. 
185 F / disq. 


CHR$(PEEK(I)) ; :NEXT 
61 LOCATE 18,a:PRINT USING "#4 ;PEEK(390 
16) 
62 LOCATE 21,a:PRINT FNg$(39017) 
63 LOCATE 24,a:PRINT A$((PEEK(J9018) AND 
15)) 
b4 LOCATE 27,a:PRINT FNF$(39019) 
b5 LOCATE 33,a:PRINT FNf$(39021) 
bb LOCATE 38,a:PRINT FNg$(39023) 
67 LOCATE 42,a:PRINT FNf$(39024) 
68 LOCATE 48,a:PRINT FNf$(39026) ; 
70 FOR i=39028 TO 39064:1F PEEK(I)<>0 TH 
EN G0TO 75 ELSE NEXT:G0TO 80 
75 PRINT TAB(53)::FOR 1=39027 TO 39083:P 
RINT FNg$li);","3:NEXT:a=a+3:G0TO 55 
BO a=a+{:GOT0 55 


SR ER AS 
FAUDRAIT PAS PLAISANTER ! 


Un lecteur candide ? naïf ? mal 
informé ? nous adresse, pour 
publication dans CPC, un article 
sur un synthétiseur vocal paru 
chez notre confrère ELEKTOR ! 
Il ne faut pas pousser |! Les arti- 
cles et programmes publiés dans 
CPC doivent être inédits. || ne 
saurait être question de publier 
dans nos colonnes des sujets 
déjà traités ailleurs, surtout si 
vous n’en êtes pas l’auteur. 


ENFIN, UN SYNTHÉTISEUR VOCAL FRANCAIS, 
parlant français, comme les français. 


Prix de vente 480 F TTC 


Les possibilités de ce synthétiseur vocal TECHNIMUSIQUE 
sont multiples. À base de formants, celui-ci est programmable. 
par phonèmes { logiciel de phonèmes français livré d'origine }, 
diphonèmes, mots, phrases ; utilise l'amplificateur audio interne 
du micro ordinateur, possède une sortie ampli hifi, ( résultats 
surprenants }), sortie déport bus. 


L'INTERFALE SENPIDI 
1490 F 


- Connexion possible de 8 synthé- ee” 
tiseurs équipés M.I.D.1. pu Tous ces matériels et logiciels sont compatibles avec Amstrad 
- Séquenceur temps réel sur 8 pistes ! nU: pe CPC 464, 664, 6128, en vente chez votre revendeur ou TECHNI- 
polyphoniques, 10 séquences. ‘ES : NS MUSIQUE. 
- Diverses possibilités : dubbling, Ki SYNMIDI Ch 
transposition synchro batterie, … Fseras 
etc. ñ BE. jrs 


Centre commercial 

rue Fontaine-du-Bac 

63000 CLERMONT-FERRAND 
73 262104 


EN 


- Création musicale pas à pas / MIDI 
{ cable EXT pour 664 et 6128 à 
Livré avec cassette et disquette. 


Vente Informations Services Micro-Ordinateurs 
Micro-ordinateurd familiaux 


] 


V \ 84, bd Beaumarchais - 78011 Paris 22, bd de Reuilly - 78018 Paris 
RSS l O4 Métro Bastille ou Chemin Vert scene Métro Daumesni ou Dugommier 
(4 Nés De 10 h à 20 h sauf dimanche. + 38-68- De 14 h à 20 h sauf dimanche et lundi 


VALIS MS DH ETS 
BRIES)ENME 


RCDLOIT'EAZ Ke, 
OTRA C On PAT A B ILAURTE 
AMSTRAD 
SPP SUR 


CONDITIONNE SUR UN SUPPORT EN 


POLYSTYRENE AVEC K7 PROGRAMMES ANS RAD 


TABLE DES MATIERES 


PREFACE _INTRODUCTION CE LOGICIEL VOUS PERMET 


CHAPITRE 1 : Le langage Basic 


. L'ordinateur... .….sssssocssosssssescoooee 


1 
2 : . lisa Basics ss rss solo 01010 013 So 6 00 200 COMPTES 
- La notion de programme... ...s..ssssssseee 750 ECRITURES 
$ : Fest des connalesancese er osssseccceece. | PLAN COMPTABLE AVEC COLLECTIFS GESTION 
OUVERTURE DES COMPTES 
CHAPITRE 2 : Les jeux. SAISIE DES ECRITURES 
L. Le: Loto. shoes sotoisme este TENUE DES COMPTES en permanence 
: . ete Chiffres. ...osssosssscsccsocee CONSULTATION DU JOURNAL DES COMPTES 
1 RE EN NES CONSULTATION de ia BALANCE 
CHAPITRE 3 : Mathématiques EDITION DES LISTINGS SUR IMPRIMANTE 
1 . Manipuler des degrés.........sssosssssesse LISTING DES COMPTES 
2 . Résoudre des équations......cossssossessee JOURNAL GENERAL 
3 . Statistiques.............esososooooososoee GRAND-LIVRE 
4 : i BALANCE 
| es dde TEST DE CONFORMITE DU PLAN COMPTABLE 
2 | Une table à dessinsscssscesccoiccssccc: | CONSERVATION DES DONNEES SUR CASSETTE 
CHAPITRE 5 : la gestion de fichiers LOGICIEL ACCESSIBLE 1MMBEDIATEMENT 
1 . Les LEptiae de données et de fichiers..... 
2. L t d fichiers. sos secs os ssceosss 
à : vne application des fichiers Sois sense sa PROTECTION DES DONNEES PAR UNE CLEF 
nn PMIGEE PAR à eo EMPECHANT TOUTES INDISCRETIONS 
CHAPITRE 6 : Comptabilité 
: . En Din csssssssnssssossses POU RQUOI ATTENDRE 
. (eju] a nèrale.....sss.erssss.sesee 
3 . buletin de Date soso ssoss es seesse ses ess PROGRAMME COMPTAMSTRAD SUR 


DISQUETTE 75 FRS 
PRIX PUBLIC 138,00 FRS TTC! PRIX PUBLIC 450,00 FRS TTC 


UN MAGNRETO- 


AU BANIC 
D'ESSAI 


U° magnétophone, diable, 
mais pour quoi faire ? Pour 
les CPC 664, pardi ! Le lecteur de 
disquettes intégré a supprimé le 
magnétophone, mais bon nombre 
d'utilisateurs passant du 464 au 
664 se retrouvent avec des logi- 
ciels sur cassettes inutilisables… 
Faut-il acheter un magnétophone 
spécial informatique ? Peut-être. 
En tout cas, celui que nous avons 
testé en premier, ‘‘LASERDA- 
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TA”, ne nous a pas convaincus. 
Elégamment habillé de gris 
anthracite, il s'intègre à l'environ- 
nement CPC par sa couleur. L'ap- 
pareil est alimenté directement à 
partir du secteur 220 V, ce qui 
est un bon point. || possède, 
comme il se doit, un compteur 
indispensable au repérage des 
enregistrements. || ne possède 
pas de haut-parleur incorporé, et 


le petit frère (ou la petite sœur) 


ne pourra pas s’en servir pour 
écouter Chantal Goya. Un 
contrôle auditif type ‘‘’buzzer’’ est 
commandé par un circuit de 
‘monitoring’ que l'on peut met- 
tre ‘’EN’’ et "HORS" service. Le 
réglage du niveau de sortie est 
commandé par un potentiomètre 
portant des graduations de zéro 
à 10. Côté enregistrement, c'est 
automatique : il n’y a aucun 
réglage et une diode électrolumi- 
nescente s'allume lors du 
"SAVE". 

Le clavier de commande est 
composé de cinq touches gris 
clair et d’une sixième (verte) pour 
l'enregistrement. Ce clavier, tout 
en plastique, ne donne pas une 
impression de fiabilité exem- 
plaire ! Nous avons glissé trois 
logiciels pour essayer de les char- 
ger : aucun problème avec deux 
d’entre eux, par contre beaucoup 
de difficultés avec l’autre. Pour- 
tant, sur le 464, nous n'avions 
aucun problème avec cette cas- 
sette. Ah ! les problèmes d'azi- 
mutage… 

Autre défaut constaté sur l'exem- 
plaire dont nous disposions : une 
fâcheuse tendance au blocage 
lors du défilement de la cassette. 
Les entrées/sorties vers l'ordina- 
teur se font sur prise DIN ou sur 
jack. Lors de l’achat, n'oubliez 
pas de demander le câble spécial 
pour la liaison avec l'AMSTRAD. 
Notre conclusion : pour 390 F 
l'appareil testé nous paraît assez 
peu fiable mécaniquement... En 
cherchant bien, vous le trouverez 
à moins cher mais, surtout, ne le 
payez pas plus de 400 F. 


ESSAI IMPRIMANTE 


MT 80S 


hoisir une imprimante, périphérique important du micro- 

ordinateur, n'est pas chose facile. S'il est vrai que la ponction 

effectuée sur le porte-monnaie est déterminante, il y a d'autres 
facteurs à prendre en considération. 


Parmi les nombreuses impriman- 
tes qui existent sur le marché de 
l'ordinateur familial, il en est qui 
émergent, soit par le prix, soit par 
les possibilités, soit par leur 
renommée. Certaines allient tous 
ces avantages et sont présentes 
sur bien des catalogues de 
revendeurs. 

La MT80S de MANNESMAN- 
TALLY est de celles-là. 

Pour moins de 4000 F, la MT80S 
met à votre portée d'excellentes 
caractéristiques : une mécanique 
robuste (il n’y à qu'à ouvrir le 
capot et regarder les pignons 
d'entraînement), un encombre- 
ment qui reste acceptable (385 x 
320 x 130 pour un poids de 5 kg) 
et un jeu complet de modes 
d'écriture que nous allons exami- 
ner. La vitesse de travail (100 
cps) est également un atout. 
Il'est irritant, sur certains maté- 
riels, de devoir se livrer à une 
gymnastique fastidieuse pour 
introduire le papier dans la 


Je suis l'imprimante MANNESMANN TALLY MT 805. 


machine. lci, ce ne sera pas le 
cas : le cirçuit papier est très bien 
étudié, et les risques de ‘‘bour- 
rage’’ sont réduits. Le ruban 
encreur est livré sous cartouche, 
ce qui évitera de laisser des dis- 
gracieuses (ou traitres) emprein- 
tes digitales après sa manipula- 
tion. 

Bien sûr, la MT80S n'admet pas 
seulement du listing ‘‘accor- 
déon’”, mais aussi du papier nor- 
mal, pour faire vos rapports ou 
votre courrier. L’entraînement du 
papier se fait par traction (listing) 
ou friction (normal). 

La mise sous tension s'effectue 
par un interrupteur disposé sur le 
flanc droit de l'imprimante. Dès 
qu'il est actionné, les voyants 
POWER, READY, ON LINE, situés 
sur la face avant, s’allument. Un 
indicateur ‘’PAPER OUT'' vous 
informera de l’absence du papier. 
Deux commandes, FF (Form 
Feed) et LF (Line Feed) permet- 
tent, à condition que l'imprimante 


soit ‘’off line’’, de faire avancer 
le papier par page ou ligne. 

Un auto-test peut être déclenché 
à la mise sous tension, si on 
active l'interrupteur en même 
temps que l’on appuie sur LF : le 
jeu de caractères est alors 
imprimé en continu. 

La longueur d’une page peut être 
réglée à 66 ou 72 lignes (papier 
11 pouces ou 12 pouces). 
L'initialisation de l'imprimante 
peut se faire par logiciel, 
commandée directement à partir 
du micro par l'envoi de la 
séquence ESC 

Le jeu de caractères comporte 96 
caractères normaux, 96 italiques, 
87 caractères spéciaux et codes 
de commande, 103 caractères 
semi-graphiques. 

Sur AMSTRAD, une partie de ces 
possibilités ne pourra être exploi- 
tée à cause de la liaison non stan- 
dard (absence du 8e bit). Si on 
tenait le ‘’cerveau musclé”’ qui a 
affublé notre chère machine de 
cette tare... 

Il est à noter que l'accès aux dif- 
férents jeux de caractères s’ef- 
fectue par soft intégralement ou 
par hard (dip-switches), ce qui est 
très intéressant. 


et je vous propose plusieurs modes d’ecriture... 


1"HEDR’ ()Xk+,-./0123456789: ; <=)>78ABCDEFGHIJKLMNOPGORSTUVUXYZ'SS*_" 
abcdefghijkimnopgrstuvuxyzéüè 


Voici 
pour. 


1e 


l1=s 


ou le aode condense, pour gagner de la place... 


Bien entendu, © ri 


Ecrivons en plus gras 


peut melanger.. 


Et en GROS et GRAS 


NoPmal “posant 


Normal snaice 


mode elar gi: 


titres . 
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Les caractères sont définis sur 
une matrice 7x8 ou 8x8 en 
semi-graphique. Le mode graphi- 
que autorise 640 points par ligne. 
Le mode ‘’normal'’ est complété 
d'un mode ‘‘’condensé’’ et d’un 
mode ‘élargi’. 

De 80 caractères par ligne, on 
passe à 142 caractères en mode 
‘’condensé’’. En mode élargi, on 
peut écrire sur 40 colonnes. Les 
modes ‘’Elite’’ et ‘‘Exposant”” 
sont aussi disponibles. 

Un petit exemple étant préférable 
à tous les longs discours, vous 
trouverez, dans cet article, une 
présentation des différents 
modes d'écriture. 

La séquence code ESC suivie de 
1 ou 2 caractères sera fréquem- 
ment utilisée ; il est ainsi possi- 
ble d'accéder à toutes les res- 
sources de l'imprimante : mar- 
ges, soulignement, modification 
d'interligne, écriture proportion- 
nelle, tabulation et même les 
mises en et hors ‘‘line’’ de l’im- 
primante. 

Il est intéressant de noter qu’un 
DUMP” hexadécimal des carac- 
tères envoyés à l'imprimante 
peut être reproduit sur papier ; 
cela est très ütile lers de la mise 
au point de certains logiciels. 
Le mode graphique ‘’bit-image”” 
ne sera pas utilisable directe- 
ment, et il faudra écrire un logi- 
ciel, mais cela vaut pour toutes 
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les imprimantes, le HARD COPY 
graphique (ou texte) n’étant pas 
prévu dans le Basic de l’'AMS- 
TRAD. 

Evidemment, l'absence du 8: bit 
obligera l'auteur du logiciel de 
recopie à jongler un peu avec les 
possibilités du mode BIT IMAGE 
de l'imprimante. 

Dans ce mode, les profils binai- 
res à reproduire sont définis sur 
deux octets, représentant le nom- 
bre de bits qui suivent, chaque bit 
représentant lui-même un point 
image. La copie graphique pourra 
se faire en simple ou double den- 
sité. 

La notice, bien qu'écrite en 


anglais, est suffisamment 
complète pour aider le program- 
meur, efficacement, lors du déve- 
loppement de logiciels utilisant 
l'imprimante. 

Les essais auxquels nous avons 
procédé pendant la période du 
test montrent que le matériel est 
très sérieux, robuste et facile à 
utiliser. Servie par un bon logiciel, 
la MT80S possède bien des 
atouts : fiabilité, vitesse de tra- 
vail (100 cps en mode normal) et 
simplicité d'emploi, complétés 
par le caractère multi-usages du 
matériel. 

Lorsque nous vous aurons dit que 
cette imprimante est disponible 
chez ORDIVIDUEL, annonceur 
dans CPC, et que le Père-Noël a 


convaincu le gérant du magasin 
de faire une promotion à l'occa- 
sion des fêtes (3350 F au lieu de 
3950 F), vous conviendrez qu'il 
est peut-être temps de vous équi- 
per de ce périphérique capable 
d'imprimer votre courrier et vos 
listings. 


CPC A ‘’AMSTRAD EXPO" 


A ne pas manquer si vous dési- 
rez rencontrer toute l'équipe de 
CPC. Nous serons présents sur 
un stand et espérons vous y 
accueillir. 

Ce sera l’occasion pour vous de 
découvrir les programmes publiés 
dans CPC, d'acheter disquettes 
et cassettes, de vous abonner et 
de venir nous montrer vos derniè- 
res réalisations. 

AMSTRAD EXPO 
HOTEL HOLIDAY INN 
Porte de Versailles: 
du 24 au 27 janvier 1986 


-DOS a été créé par LOGICYS dont nous avions déjà 
testé le logiciel de facturation. Comme celui-ci, U- 
DOS ne nous a pas déçus. La disquette intègre une 
routine d’accès direct (fichiers accès direct absents du DOS 
AMSTRAD) et des utilitaires qui devraient faciliter la vie 


du programmeur. 


Bien que livrée avec une notice 
‘’papier’’, la disquette U-DOS 
contient un fichier décrivant ses 
diverses possibilités. 

U-DOS est livré sur une disquette 
protégée qu'il vous sera impos- 
sible de dupliquer. 

Il est à noter que U-DOS et ses 
utilitaires ne peuvent être utilisés 
que sur des disquettes initialisées 
DATA. 


Nous aurons certainement l’occa- 
sion de revenir sur la théorie des 
fichiers dans CPC, notamment 
pour parler de l'accès direct, 
aussi notre essai se bornera à 
vous parler essentiellement des 
utilitaires disque fournis avec U- 
DOS. 


ACCES DIRECT 


Grâce à cette routine, il est pos- 
sible d'ouvrir 7 fichiers simulta- 
nément. 

Quatorze commandes ou instruc- 
tions sont ajoutées, dont deux 
commandes qui n’ont rien à voir 
avec les fichiers : PAUSE pour 
programmer des délais et deux 
ordres d’écriture/lecture permet- 
tant, à partir de chaînes de carac- 
tères, de lire et d'écrire des zones 
mémoire. 

Un descripteur d'erreurs com- 
plète le U-DOS. 


LES UTILITAIRES 


Les utilitaires disque sont acces- 
sibles à partir d’un menu général 
et permettent de travailler sur une 
ou deux unités de disquettes. 


Directory amélioré 


Donne davantage de renseigne- 
ments sur le catalogue de la dis- 
quette : le numéro logique des 
fichiers, son type, implantation 
physique pistes et secteurs, tail- 
les disque et réelle des différents 
fichiers. 

Un résumé indique le nombre de 
fichiers de chaque sorte (BAS, 
BIN, etc.) et d'entrées encore dis- 
ponibles sur le DIRECTORY. 

Le tableau, présenté à l'écran, 
peut être édité sur imprimante. 


Description de fichiers 


Donne l'occupation en pistes/ 
secteurs sur le disque, ainsi que 
la piste et le secteur de début de 
fichier. 

Permet également de renommer, 
supprimer, initialiser… 


Dump secteur 


Sortie sur l'écran, ou sur l'impri- 
mante, du contenu listé en hexa- 
décimal et en ASCII, de tout un 


secteur. 

Un mini-éditeur permet de modi- 
fier un ou plusieurs octets du sec- 
teur, en hexa ou en ASCII, et de 
sauvegarder le secteur modifié. 


Représentation graphique 
de l'occupation disque 


L'occupation du disque par les 
différents fichiers est représentée 
sous forme graphique. On peut 
donc voir les secteurs libres ou 
occupés. 

Le total des secteurs libres est 
affiché ainsi que le nombre de 
kilo-octets qu'ils représentent. 


Copie de fichiers 


Pour éviter de passer par CPM, U- 
DOS contient une routine de 
copie de fichiers. Hélas, elle n’est 
utilisable qu'avec deux drives, et 
uniquement sur des disquettes 
formatées en DATA. 

Signalons enfin la présence d’un 
utilitaire de définition de fichiers 
indexés et d’un autre, évitant 
l’utilisation du ERA, fonctionnant 
comme un éditeur de Directory, 
où la suppression est plus aisée. 
En conclusion, nous dirons que 
U-DOS, outre le fait qu'il permet 
enfin de disposer de l'accès 
direct, est très intéressant de par 
les utilitaires qu'il intègre. 
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Transformez votre 464 en 664+! 


CARTE MÈRE - EXTENSION EPROM de Super Power 


La carte mère s'installe entre l'ordinateur et l'interface disquette (si celle-ci 
est utilisée). Elle peut accueillir jusqu'à 7 EPROMs (mémoire morte pro- 
grammable) de 8 ou 16K chacune. 

Les programmes en EPROM sont instantanément disponibles sur simple 
commande au clavier. La carte mère de construction robuste est d’utili- 
sation simple. Elle est accompagnée d'une notice en français. 


Programmes déjà disponibles en EPROM 


BE UTILITAIRE GESTION DE DISQUETTE SUPER POWER DS 


Ce programme permet l'inspection et la modification des informations 

contenues sur 1 disquette. Un utilitaire essentiel pour récupérer les don- 

nées contenues dans une disquette défaillante. Chaque secteur peut 

être lu et réécrit, toutes les données peuvent être affichées ou impri- 

mées. 

Le programme contient ausi un certain nombre de fonction utiles aux 

programmeurs en langage machine. 

Description : 

- Affichage du contenu du «directory» - édition possible 

- Lecture et écriture d’un secteur de disque - édition possible 

- Lecture des mémoires, possibilité d'édition, de copie et d'impression. 

- Désassemblage code entre adresse donnée, donnant adresse, code 
objet, mnémoniques, ASC II. 


Recherche dans les secteurs fichiers, une chaîne (string) ou une série de 
codes HEX. 


Formatage, duplication de disque sans CP/M. 
Conversion HEX-BIN-DECIMAL. 
Choix de mode d'affichage. 


Etc... 
BOITE A OUTILS DE PROGRAMMATION ne 
+ BASIC ETENDU SUPER POWER 


Commandes directes 


Character : 
Compact : 
Editor : 


création de caractère utilisateur (affiche la ligne DATA) 
comprime un programme Basic 
Editeur à trois fenêtres 


Find/replace : cherche et remplace un caractère ou une chaîne 


Medit : 


HEX éditeur et ASCII 


Picture : aide à la création des UDG 
Soundlab : éditeur d'enveloppe 
Xref : donne toutes les références d'une ligne (GOTO, 


GOSUB...) 


Commandes imprimante 


Cdump : copie haute-résolution 
Echo on: sortie directe sur imprimante 
Echo off : LTRON - sortie TRACE sur imprimante 


! Commandes graphiques 


Circle, Fill, Frame, Gcol, Graphic paper, Graphic pen, Mask, 
Turtle... 


Commandes d'écran 


Copychr : caractère double hauteur ou souligné 
Page-on : défilement vertical 
Page-off : passage d'un écran à l'autre 


Commandes fichiers 


Baud : 
Info : 
Unprotect : 


choix de vitesse jusqu'à 4000 Baud 
donne adresse, longueur, adresse d'exécution 
charge un fichier «P» 


etc... 


SEMAPHORE LOGICIELS 

c.p. 32 - CH-1283 La Plaine (Suisse) Tél. 022/54 11 95 
Distribution & Services 

Avenue du Québec B.P. 209 91944 Les Ulis cedex 

Tél. 6/446 27 80 


TASWORD D’ 
MAIL-MERG 


Le traitement de texte des Amstrad avec 
adressage incorporé. 

Fichier de travail porté à 22K sur 
464,664 et 64K sur le 6128. 

Echange de données avec MASTERFILE 
(fichier) et MASTERCALC (tableur). 


Conversion de vos programmes TAS- 


WORD/AMSWORD 464 possible. (Ecri- 
vez-nous). 

TASWORD, TASPRINT, TASCOPY, SEMEXT 
MF, SEMEXT MC, Les outils sérieux de 
gestion de texte et données de chez 
SEMAPHORE ! 


Demandez notre documentation. 


Prix de lancement : 


FS FF 

Carte mère 145 548 
EPROM utilitaire disquette 145 548 
EPROM boîte à outils 145 548 
Carte mère + 2 EPROM 400 1520 
Echecs disque 65 235 

cassette 56 185 
Tasword 90 345 


Licence SUPER POWER de MICROPOWER 


Distribué en exclusivité par SÉMAPHORE 


” DART ” 


modes O - 1 - 2 - Moniteur vert ou couleur  SÉMAPHORE présente : «D'ART» crayon 


- boîtier s'intégrant aux Amstrads - compa- 
tible tous Amstrad, lecteurs de disquettes, 
synthétiseur... - boîtes - cercles - lignes - 
aérographe 

gomme - élastique - fill et unfill - 6 sortes et 
largeurs de trait - accès à toutes les couleurs 
- etc... etc. 


Crayon + logiciel graphique 


optique pour Amstrad rapide et précis 
au pixel près ! Le crayon optique qui permet 
de travailler à main levée, directement sur 
l'écran et à vitesse d'écriture normale ! 

Utilise la technologie des fibres optiques 
polymères. 320 x 200 - 64000 pixels - 


132fs475ff nm 


Aussi 

Tascopy pour sortir vos chefs d'œuvres sur imprimante 
Semdraw 2. L'utilitaire DAD + dessin technique idisquettei 
OFFRES 

Crayon optique + logiciel + tascopy 

Crayon optique + logiciel + Semdraw 2 et dessin technique 


49fs170ff 5 
70fs 250ff mn 


160fs610ff = 
180fs650ff # 


Je commande les articles ci-dessus et vous envoie la somme de EL: 5 fs ou 16ff 


pour les frais d'envoi. 
Sigravre SE Nom et Prénom SE 


Adresse ES 
DS SRE 


Commande téléphonique au 6/446 27 80  Sémaphore logiciels : C.P. 32 - CH-1283 La Plaine (Suisse) Tél. 022/54 11 95 
Distribution et services : Avenue du Québec - B.P. 209 - 91944 Les Ulis Cédex (France). 


UN TRAITEMENT DE TEXTE A LA LOUPE : 


SEMWORD 


EMWORD est un produit dérivé de l’excellent TAS- 
WORD de TASMAN Soft, complété par SEMAPHORE 
Logiciels (Suisse). Les compléments apportés en font 
un outil à la fois puissant et performant, adapté au mar- 
ché ‘’francophone”’’. Nous allons examiner les qualités (et 


les défauts) de ce logiciel. 


Au premier abord, SEMWORD 
paraîtra complexe à utiliser : en 
fait, après quelques dizaines de 
minutes, vous serez capable de 
saisir votre premier document et 
de l’imprimer. Après un couple 
d'heures passées en compagnie 


Poisir 
INFORMATIQUE 


Micro-ordinateurs 
Accessoires 
Nombreux logiciels 


4 MAGASINS EN NORMANDIE 


22, Place du Général de Gaulle 


76600 LE HAVRE 
Tél.: 35.43.51.54 


39/41 Rue de l'Oratoire 
14000 CAEN 
Tél.: 31.85.18.77 


31, Boulevard de la Marne 
76000 ROUEN 
Tél.: 35.07.6060 
11, rue du Perré 
61220 VIMOUTIERS 
-Tél.: 33.39.16.65 


de votre clavier et de la notice, 
vous découvrirez toutes les sub- 
tilités, et la puissance de ce logi- 
ciel. 

SEMWORD fonctionne en 80 
colonnes mais l'écran est en fait 
une fenêtre de 80 colonnes sur 
une largeur possible de 128... A 
l'initialisation, vous disposerez, 
grâce à la redéfinition des tou- 
ches, d’un clavier AZERTY. Le 
pavé numérique permettra l’ac- 
cès aux ‘’accentuées’” par l’ac- 
tion conjuguée sur la touche 
SHIFT. Tout ceci est modifiable 
selon les habitudes de l’utilisa- 
teur, en particulier le retour au 
QWERTYŸ si vous le souhaitez. 

Bien que le manuel accompa- 
gnant la disquette soit très 
complet, un aide-mémoire est 
intégré au logiciel. Une partie de 
celui-ci est présente à l'écran en 
permanence, mais peut être 
escamotée. A tout instant, il est 
possible de faire apparaître la 
totalité de l’aide-mémoire. Vous 
serez surpris par toutes les fonc- 
tions disponibles. 

Au bas de l'écran, une ligne 


d'état indique les différents para- 
mètres de fonctionnement : posi- 
tion en ligne, colonne, justifica- 
tion, wrapping.… 

Comme tout bon traitement de 
texte, SEMWORD ne coupera 
pas vos mots n'importe où... Le 
“Word Wrapping'’ effectuera la 
césure entre deux mots. Vous 
pouvez donc saisir vos textes 
sans vous soucier de cette 
contrainte. Cette fonction peut 
être inhibée. 

La ‘‘justification'’ à droite est 
automatique, mais peut être sup- 
primée. Il est possible d'obtenir 
des textes ‘’en drapeau'’. On 
peut ‘’déjustifier'’ une ligne,: 
‘’rejustifier’” un paragraphe... ou 
tout un texte. 

On peut également centrer auto-: 
matiquement une ligne, en fonc- 
tion de sa longueur. 

Les déplacements au sein du 
texte sont rapides et aisés, à 
l’aide des touches de curseur. En 
règle générale, les différentes 
fonctions sont obtenues par 
action conjuguée sur les touches 
CTRL ou SHIFT plus une touche 
alphanumérique. 

Effacer un mot, une ligne... ou 
tout le document sont des jeux 
d'enfant. A l'inverse, les inser- 
tions sont tout aussi aisées. Pour 
modifier des parties du texte, il 
est possible de poser des ‘‘mar- 
ques’ délimitant un groupe de 


mots pour les déplacer ou les 
supprimer, voire les dupliquer. 
La tabulation et la pose de mar- 
ges sont réglables. Un paragra- 
phe pourra être margé sur 60 
colonnes, alors que les autres le 
sont sur 80 ou 40... 

Les commandes d'impression 
sont multiples et permettent un 
paramétrage complet de la sortie 
du document sur papier. Il est 
possible de faire du feuille à 
feuille ou de l'impression en 


continu, d'imprimer des numéros 


de page, des titres, des bas de 
page. Des séquences de plusieurs 
codes de commandes peuvent 
être programmées pour être 
envoyées à l'imprimante autori- 
sant le soulignage, le change- 
ment de police de caractères et 
toutes les fantaisies acceptées 
par votre machine. 

Le logiciel SEMWORD peut être 
personnalisé : redéfinition de tou- 
ches, intégration de chaînes de 
caractères (par exemple pour 
obtenir les mots souvent utilisés 


PRIX SPÉCIAUX POUR COLLECTIVITÉS 


ET ASSOCIATIONS 


dans un rapport ou les formules 


de politesse), séquences de. 
caractères de commande impri- … 


mante, couleurs sur l’écran pour 
encre et papier. 


bilité (que n'offrait pas TAS- 
WORD) de fusionner des don- 
nées. Ainsi, vous pouvez placer 
à un endroit de votre texte, des 
codes de commandes qui vont 
faire appel à un fichier externe 
capable d'ajouter des morceaux 
de texte à votre document. C'est 
la porte ouverte vers le MAILING, 
par exemple, qui séduira bien des 
utilisateurs. On peut également 
récupérer des données de 
MASTER-FILE ou MASTER- 
CALC. 

Comme les fichiers lus (ou pro- 
duits) par SEMWORD sont de 
type ASCII, il est possible de 
reprendre un listing source, 
généré par un assembleur (ZEN, 
par exemple) et de les commen- 
ter avec le traitement de texte. 


F 
r 


LOGICIELS IQUE 
LES - PÉDAGOGI 
JEUX - UTILITAIRES : PÉDRED 
! COMMODORE 


Ë 11, Bid Voltaire DE8H30à19H 
$ 75011 Paris SANS INTERRUPTION 
à & (1) 43.57.48.20 


1500F ORICI48K.....--" 


(Garantie ! an) 


ANNRES 


Assistance Micro Informatique Électronique 


JS ...... 150F 
ORIC ATMO. 300 


Il'est difficile de dire, en si peu de 
place, quels sont les atouts de ce 


_logiciel.et s’il souffre de quelques 
_ menus défauts (par exemple, la 
_ lenteur de rejustification d’un 
Mais la grande originalité de + 
SEMWOROD réside dans la possi-. 


long document en cas de modi- 
-fication des marges, ou le fait 
qu'il faille changer de disquette 
au moment.des sauvegardes ou 
lectures de texte), il présente, à 
notre avis, l'avantage d’être un 
outil de travail extrèmement 
complet, capable de séduire l’étu- 
diant rédigeant sa thèse. ou le 
technicien établissant son rap- 


po 4  — 
SEMWORD est vendu, sur dis- 
quette, 345 F. Il n’est pas pro- 
tégé contre la copie et bénéficie 
d'une garantie. SEMAPHORE 
annonce même qu'il est en 
mesure de ‘‘légaliser’’ les posses- 
seurs de copies pirates de TAS- 
WORD en leur fournissant, pour 
80 francs, le manuel et une carte 
de garantie. Cette réaction 
devant le fléau du marché qu'est 
le piratage laisse rêveur. 


cé4+ Lecteur KT. 
64 + Lecteur Dis..." """""" rs 
Eur Lecteur K 7 + Moniteur Mono ..... 3090 
IC 
ue + Lect. K7 + Monit. Mono 
MSX GOLDSTAR 
FC 200 + Lect.K7+ Monit. Mono 
AMSTRAD 
CPC 464 Mono + Interface RVB. 5 
CPC 6128 Coul. + Imprim. MCP4 
GARANTIE à ans 


OUVERT DU 


LUNDI AU SAMEDI 


£ D 
DÉPANN BSE 


IRES 

JNI LES INTERMÉDIA 

A MLE DÉPANNE VOS MICRO 
Prix fixés : Forfait ou sur devis 

Délais Res Maxi 8 jours 

ao réparation est garantie 1 mois 


a me mn EU OS ER 


Pour tout achat d’un ordinateur, un abonnement de 6 mois à CPC vous sera offert. 
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PROGRANINIE 


AMSTUS 


Marie-Pierre BILLIOUD 


mstus est un tableur pour AMSTRAD inspiré de son grand 
cousin américain LOTUS 1.2.3. Il a cependant l'avantage 
sur ce dernier d’être écrit en français et en Basic, ce qui 


le rend accessibles à tous. 


La vitesse d'exécution n'est pas 
trop lente en elle-même du fait de 
la rapidité du Basic Amstrad, mais 
vue l'importance de l'occupation 
mémoire, elle est souvent ralen- 
tie par les pauses que fait l’ordi- 
nateur pour réaménager son 
espace mémoire, ce qui réduit la 
taille du tableau à des limites infé- 
rieures à ce qui serait théorique- 
ment possible. Un compromis a 
été choisi en prenant 15 lignes et 
38 colonnes, ce qui permet, par 
exemple, de loger facilement un 
budget familial ou tout tableau 
devant comporter les douze mois 
de l'année. Pour modifier la capa- 
cité du tableau, il suffit de chan- 
ger la variable FIN pour les colon- 
nes et FIN1 pour les lignes. 


En ce qui concerne le fonctionne- 
ment, les habitués de Lotus ne 
seront pas dépaysés, car la pré- 
sentation de l'écran est sensible- 
ment la même : 


— affichage des lignes sous 


forme numérique (1 … 38) ; 

— affichage des colonnes sous 
forme alphabétique (A … Z, AA... 
AZ …) ; 

— curseur déplacé d'une case 
avec les flèches ou d'une page 
avec les flèches shiftées ; 

— indication en haut à gauche de 
la ligne et de la colonne sur 
laquelle se trouve le curseur ; 
— indication du contenu (for- 
mule) de la case sous le curseur 
avec indication entre parenthèses 
du format en cours pour l’impres- 
sion des nombres. 


Les saisies de données se font en 
tapant les caractères au clavier. 
Elles commencent par s'inscrire 
en ligne 2, au-dessus du tableau 
et ne sont prises en compte 
qu'après validation par appui sur 
la touche ‘ENTER’ ou sur une 
flèche, ce qui provoquera alors un 
déplacement du curseur consé- 
cutivement à la validation. Avant 
validation, la touche ‘’DEL’” peut 
être utilisée pour les corrections 


à l'exception du premier carac- 
tère qui est susceptible d'être un 
caractère de formatage. 

Le nombre des fonctions a été 
volontairement réduit car, 
compte tenu du peu de place 
mémoire, il est préférable de lais- 
ser à chacun la possibilité d’im- 
planter les fonctions dont il peut 
avoir besoin, ainsi qu'il est expli- 
qué plus loin. C’est ainsi que, 
dans la version proposée, on ne 
trouve que les quatre opérations 
de base et une fonction de tota- 
lisation. 

Dans le cas d'opérations isolées, 
il est nécessaire de faire précéder 
la première donnée d’un opéra- 
teur (généralement le signe +), 
sinon le programme considérera 
qu'il s’agit d’un caractère. 

Les fonctions sont de la forme 
SUM (A1.X1)},où est le signe 
indispensable pour indiquer qu'il 
s’agit d’une fonction. SUM est le 
nom de la fonction (ici, somme 
des colonnes). A1 et X1 sont la 
première et la dernière cellule sur 


lesquelles doit être appliquée la 
fonction (obligatoirement sépa- 
rées par un point). Attention de 
ne pas inclure la cellule compre- 
nant la fonction dans son champ 
d'application car le programme 
risquerait de ne pas s’en remet- 
tre. 

En ce qui concerne les chaînes de 
caractères, il est possible de les 
cadrer dans les cellules en les fai- 
sant précéder des préfixes sui- 
vants : 

“"<'" — aligne à gauche dans la 


="" — centre au milieu de la 
colonne, 
‘> — aligne à droite dans la cel- 
lule. | 
Ces caractères doivent précéder 
immédiatement la chaîne et ne 
seront pas pris en compte sur le 
tableau, si ce n’est pour provo- 
quer l'alignement souhaité. 
L'appui sur la touche ‘‘/’’ provo- 
que l'affichage d’un menu dérou- 
lant avec explication des options 
sur la ligne suivante. Le passage 
à l'option suivante se fait avec la 
flèche à droite ‘’—'” qui revient 
en début de ligne après la der- 
nière option. Le choix d’une 
option se fait avec la touche 
“’COPY’’. Enfin, dans le cas où 
cela est nécessaire, la remontée 
dans les choix du menu peut se 
faire avec la touche ‘DEL’. 


DESCRIPTION 
DES OPTIONS 


Option feuille 


GLOBAL 

Format — permet de redéfinir 
pour l’ensemble du tableau le for- 
mat d'édition des nombres état, 
étant précisé que les cellules pour 
lesquelles un format particulier a 
été précédemment spécifié ne 
seront pas modifiées. 

‘Largeur - Colonnes — permet de 
redéfinir de toutes les colonnes 
du tableau la limite de 1 à 77 
caractères par colonne. 


INSERT 
Ligne — crée une nouvelle ligne 
au-dessus de celle occupée par le 
curseur. 


Colonne — crée une nouvelle 


colonne avant celle occupée par 


le curseur. 


EFFACE 

Ligne — efface la ligne sur 
laquelle se trouve le curseur. 
Colonne — efface la colonne sur 
laquelle se trouve le curseur. 


LARGEUR COLONNE 

Permet de modifier la largeur de 
la colonne sur laquelle se trouve 
le curseur. 


TITRE 

Ligne — permet de préserver une 
ou plusieurs lignes de titre en 
haut du tableau, qui ne seront pas 


“effacées lors des mouvements 


verticaux. Ce sont toutes les 
lignes au-dessus du curseur lors- 
que l'option est choisie qui sont 
préservées. 

Colonne — même chose avec les 
colonnes à gauche du curseur. 

Les deux — même chose à la fois 
pour les lignes et les colonnes. 

Efface — annule toutes les zones 
préservées pour des titres par les 
options précédentes. 


Fonction Bloc 


Un bloc est un ensemble de cel- 
lules juxtaposées constituant une 
forme rectangulaire. 

Lorsqu'un bloc doit être sélec- 
tionné, les coordonnées de son 
point de départ sont affichées. 
Elles peuvent être modifiées en 
déplaçant le curseur avec les flè- 
ches. Ces coordonnées sont alors 
fixées en tapant sur le point ‘’.”’. 
Il est ensuite possible de définir 
un bloc en fixant les coordonnées 
de l'angle opposé du rectangle. 
Ces coordonnées peuvent être 
fixées, soit en utilisant les flèches 
et en appuyant sur ‘"ENTER’’, 
lorsque le point choisi est atteint, 
soit en les tapant au clavier et en 
appuyant ensuite sur ‘‘ENTER”. 


FORMAT 

Cette commande permet de défi- 
nir le format d'édition des nom- 
bres compris dans un bloc selon 
les modes suivants : 

Général — la donné est conser- 
vée telle qu'elle a été choisie. 
C'est le format pris par défaut à 
la mise en route du programme. 
La zone entre parenthèses est 
vide. 

Fixe — permet de fixer le nombre 


de décimales figurant à l’affi- 
chage entre O et 9. Entre paren- 
thèses, on trouve la lettre ‘’F”’ 
suivie d’un chiffre indiquant le 
nombre de décimales choisies. 


EFFACEMENT 

Cette fonction permet de blanchir 
complètement un bloc du 
tableau, et par conséquent de 
récupérer de la place mémoire. 


Option Copie 


Il s’agit de l’une des fonctions les 
plus intéressantes de ce pro- 
gramme. Avec elle, il est en effet 
possible de copier une cellule vers 
un bloc. Si la cellule d'origine est 
une donnée, elle sera recopiée 
telle quelle dans toutes les cellu- 
les du bloc, ce qui, dans la plu- 
part des cas, présente peu d'in- 
térêt ; mais s’il s’agit d’une fonc- 
tion, la formule sera recopiée en 
tenant compte de la translation, 
ce qui évite de réécrire des séries 
de fonctions ayant la même 
structure (exemple : totalisation 
de lignes ou de colonnes). 
L'emploi est similaire à celui des 
blocs. Une fois l'option sélectio- 
née, il faut se placer sur la cellule 
à copier au moyen des flèches, 
puis appuyer sur ‘’ENTER"" sans 
définir de seconde coordonnée 
puisqu'il ne peut être fait la copie 
que d’une seule cellule. Le pro- 
gramme demande ensuite les 
coordonnées d'arrivée qui sont 
sélectionnées comme pour un 
bloc. 


Option fichier 


Cette option permet de sauvegar- 
der la totalité du tableau sur cas- 
sette ou sur disquette après avoir 
indiqué le nom sous lequel il doit 
être enregistré. 

Il est possible ensuite de le relire 
dans les mêmes conditions. 


Option Impression 


Cette option permet d'envoyer la 
totalité du tableau sur impri- 
mante. 


TITRE 


Permet de choisir un titre qui sera 
imprimé en tête du tableau. 


ai 


CONFIGURATION 

Cp/lignes — permet de détermi- 
ner le nombre de caractères par 
ligne en fonction de l’option qui 
sera prise sur l'imprimante. De 
cette manière, un tableau qui ne 
tient pas sur une seule page 
pourra être édité sur plusieurs. 


Codes — permet d'envoyer à 
l'imprimante des caractères de 
contrôle pour effectuer sa confi- 
guration. Ils devront être spécifiés 
sous forme décimale comprenant 
obligatoirement 3 chiffres et cha- 
que code étant séparé par un tiret 
(exemple : 027-091-052-119). 


10 CLEAR:DEFINT a-2:MODE 2:BORDER 1:INK 
O,D:INK 1,13:PEN #2,0:PAPER #2, 1:PEN#3,0 
:PAPER#3, 1:SPEED WRITE 1:DEFREAL 0 

20 ON ERROR GOTO 2500 

30 DEF FN cent#la$,h)=SPACES(INT((h-LEN( 
a$))/2))+a$+SPACES((H-LEN(a$))/2) 

40 DEF FNt$(a)=MIDS(STR$(a),2) 

50 KEY DEF 0,1,150:KEY DEF 2,1,151:KEY D 
EF 8,1,152:KEV DEF 1,1,153:KEY 150,CHR$( 
13)+CHR$(240):KEY 151,CHR$(13)+CHR#(241) 
KEY 152, CHRS(13)+CHRS(242):KEY 153, CHR$ 
(13)+CHR$(243) 

60 FIN=15:FIN1=3B:DIM AS(FIN,FIN1)sh=7:H 
$=" OO! "iD=1:Di={:X=1:V=l:Vi=texi=ita 
$(0,0)="7":a8(0,1)=" "saf$= it: FOR I=1 T 
0 FIN:A$(1,0)="7 *:NEXT I:GOSUR 1190 


70 KEY 150, CHR$(13)+CHR$ (240) :KEY 151, CH 
R$(13)+CHRS(Z41):KEY 152, CHR#(13)+CHR$ (2 
42):KEY 153, CHR$(13)+CHR$(243) 

80 REM deplacement curseur 

90 x=xtdxisyzutduixtexit+dxtiut=ul+dul 

100 IF x1{VAL(a$(0,3)) OR xi>fin THEN PR 


SON VIDÉO 


e 2000 
MICRO 
AQUITAINE 


amsrran  SRIC 
THOMSON 


# commodore 


31, cours de l’Yser 
33800 BORDEAUX 
Tél.: 56.92.91.78 
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Exécution — lance l'impression 
lorsque tous les paramètres sont 
fixés. 


Tous les paramètres fixés pour 
l'impression (titre-configuration) 
sont mémorisés dans le tableau, 
et seront conservés pour les édi- 
tions ultérieures, même après une 
sauvegarde. 


Compte tenu de la relative lenteur 
du Basic, il n’a bien entendu pas 
été possible d'envisager un 
balayage systématique du 


tableau pour remettre à jour les 
formules après chaque saisie. La 


INT CHR$(7):X=X-DX:X1=X1-DX1 
110 IF ul<VAL(a$(0,4)) OR yl>finl THEN P 
RINT CHR$(7):Y=Y-DV:Y1=Y1-DY1 

120 GOSUR JSO0:LOCATE X,Y:PRINT CHR$(24): 
:GOSUR S40:PRINT CHR$(24); 

130 IF bloc>0 THEN RETURN 

140 LOCATE #1,1,1:CLS #{:PRINT#1, CHR$S(64 

+x1);USING"##" sul; :PRINT H1,":"3:IF s=7 
THEN PRINT#I,v$ ELSE PRINT #1,"{(":5$:;")" 
sMID#(A$(X1,Y1),2) 

150 dx=0:duy=0:dx1=0: dul=0:G0OSUB 2450 

160 IF bl=2 AND (ASC(a$) XOR ASC(ai$))=1 
THEN bloc=(bloc AND 1)+#1 

170 IF ASC(a$)<240 GOTO 280 

180 LOCATE x,y:GÜSUR 540 

190 ON ASC(a$)-239 GOTO 200,210,220,230, 
240,250, 269, 270 

200 Duy=-1:DY1=DY:G0T0 90 

210 Dy=+1:DY1=DV:GOTO 90 

220 Dx=-VAL(a$(x1-1,0)):Dx1=-1:60T0 90 

230 Dx=#VAL(a$(x1,0)):Dx1=+1:G0TO 90 

240 Dui=-22+b:DY=duyt:G0TO 90 

250 Dyi=+22-b:du=dul:60T0 90 

260 IF d=1 THEN PRINT CHR#(7):G0TO 90 

262 dxl=d-x1:MHILE 70+dx-a}VAL(a$(xt-1+d 

x1,0)) AND xi+tdx1>{+c:dx=dx-VAL(a$(x1-1+ 

dx1,0)):dx1=dxi-t:HEND:dx=-B0iux{=dul+xt 

“ŒC 

265 GOTO 99 

270 WHILE 79-x-dx-a)=VAL(AS(MIN(X1+DX 1. f 

in),0)) AND xi+dxi<=fins:DX=DX+VAL(A$(X1+ 

DX1,0))}:DX1=DX1+1:MEND: IF xi+dxi-léfin T 

HEN dxi=MIN(x1+dxi-d-c,fin-x1) 

275 GOTO 90 

280 IF blac>0 GOTC 90 

290 IF ASC(a$)=13 GOTO 90 

300 IF aÿ="/* THEN GOSUR 750:G0T0 70 

310 IF ASC(A$)=16 THEN d=i:GOSUR 1680:60 

T0 90 

320 IF a$(xf,u1)="" THEN a$(xi,ul)=" 

330 LOCATE #1,1,2:PRINT#1,a$:2LINE INPUT 
#,v$ra$(xi ,u)=LEFTS(a$(xl ui), 1)+2$+v 

$:LOCATE x,u:GOSUB 540:G0T0 90 

340 GOTÜ 90 

350 IF X<{ THEN D=D+dx1:X=X-DX:GO0T0 400 


mise à jour n’est donc effectuée 
que lorsque le curseur passe sur 
la cellule, ou lors d’un change- 
ment de page, ce qui actualise 
toute la page. 

Il'est à noter que la touche ‘‘CLR’ 
permet de ramener le curseur en 
position home (A1). 

La modification ou l'introduction 
de nouvelles fonctions peut se 
faire en insérant, après la ligne 
2190 ou à sa place, un nouveau 
test conditionnel avec le nom de 
la foncttion (3 caractères obliga- 
toirement), envoyant sur les 
lignes à créer qui traiteront cette 
fonction. 


360 IF X+VAL(A$(X1,0))>79-A THEN D=D+dxi 
:60T0 400 
370 1F Yi THEN DI=Di+dy:Y=Y-DY:GOTO 400 


380 IF Y>22-B THEN Di=Di+dy:Y=Y-DY:60TO 
400 

390 RETURN 

400 CLSHZ:LOCATE #2,1,1:i=dtc:xi=0 

410 IF POS(#2)4VAL(a$(i.0))-1)=79-a GOTO 
440 

420 IF i=x1 THEN xi=P0S(#2) 

430 h=VAL(a$(i,0)):PRINT #2,FN cent$(CHR 
$(b4+i),h);5i=iti:IF it=fin AND POS(#2)) 
1 GOTO 419 

440 IX=1-1 

450 CLS#J3:LOCATE #3,1,1:FOR I=di+b TO Di 

+21:PRINT#S,USING"##";l:21F izul THEN y= 

VPOS(#3)-1 

460 NEXT : 

470 CLS:d2=x{:d4=u1:LOCATE #0, 1, {:LOCATE 
#4,1,1:LOCATE #5,1,1 

480 IF a>0 THEN CLS#4:FOR ul=1 TO b:FOR 

xi=dte TO ix-c+i:E=4:GOSUR 540:NEXT x1:P 
RINT#4:NEXT ul 

490 IF b>:0 THEN CLS#5:FOR yl=di+b TO MIN 
(fini,di+23-b):FOR x1=i TO cie=5:GUSUR 5 

AO:NEXT xI:NEXT ul 

500 e=0:FOR ui=dirb TO MIN(finl.di+21):p 

o=1:FOR xi=dtc TO ix: IF MIDS(AS(XI, V1), 

3)<>"* THEN LOCATE po, Yi-di+i-b:COSUR 54 
0 

510 PO=POHVAL(a$(xt,0)):NEXT x1:NEXT ul 

520 xi=d2:ul=da:IF xi=0 GOTO 350 ELSE x= 
xi 

530 RETURN 

540 REM mise en forme des donnees 

550 s=0:vi$="";:v#=MIDS(a$(xl,ut),2):n=VA 

Lia$(x1,0)):S$=LEFT#(a$(xl ul),1):1F 5$= 
** THEN s$=a$(0,1) « 
560 IF v$="" THEN s$za$(0,1):PRINT #e,SP 

ACES$(h) ;: RETURN 

570 nd=4SC(s$)MOD (0:v1$=v$ 

580 IF ASC(VS)<48 OR ASC(v#)=64 GOTO 196 

0 

590 IF VAL(v$)<>:0 GOTO 670 


600 s=2 

610 ON ASC(v#)-59 GOTO 630,640, 850 

620 VIS$=LEFTS(V$+SPACES (8D),H):G0T0 860 

630 vi$=MID$S(v$+SPACES(80),2,h):G0TO 660 

640 vi$=FN cent$(MID$(v$,2),h):G0TO 660 

650 vis-SPACES(H-LEN(VS)+1)+MID$(v$,2) 

GOTQ 660 

660 PRINT #e,v1$::RETURN 

670 IF 5$=" " THEN s=1:5$=a$(0, 1) :nd=ASC 
(s$) MOD 10 

680 ÏF s$=" * THEN PRINT #e,LEFT$(STR$(V 

AL(v$) )+SPACES (80), h) ; : RETURN 

690 vi$=LEFTS(v$+SPACES (80) ,h) 

700 IF ASC(S$)\10=1 THEN u$=STRING$(h-MI 

Nthend),35):5$="F"4FNt$(nd):1F nd>0 THEN 
u$=MID$(u$,2)+","+STRING$ (nd, 35) 

710 IF ASC(s$)\10=4 THEN u$=STRING$ (MAXX 
h-5,0),35)+",.##F":s$="D2":G0TO 730 

720 IF ASC(5$)\10=2 THEN u$=STRINGS (MAX! 
0,h-nd-2),35)+"."4STRING$(nd,35)+"%4":5$= 
“P'+FNt$(nd):PRINT #e,USING U$;VAL(V#)#1 

00; : RETURN 

730 PRINT #e,USING u$;VAL(v$); 

740 RETURN 

750 REM menus 

760 KEY 150,CHR$(240):KEY 151,CHR$(241): 

KEY 152,CHR$(242):KEY 153, CHR$(243) 

770 RESTORE 2350:G0SUR 2310:60SUR 1580: 

F ASC(a$)=87F THEN RETURN 

780 ON choix GOTO 790, 1200, 1320, 1360, 140 

0,1560 

790 u$=m$(1) 

800 RESTORE 2360:G0SUB 2320:G0SUB 1580:1 

F ASC(a$)=&7F GOTO 750 

810 n$=u$ 

820 ON choix 60TO 830,990, 1070, 1140, 1150 

830 u$=n$(1) 

840 RESTORE 2370:GO0SUB 2320:GOSUR 1580:1 

F ASC(a$)=&7F THEN u$=M$:G0T0 800 

850 M$=u$ 

860 ON choix GOTO 870,950 

870 RESTORE 2380:G0SUB 2310:G0SUB 1580:1 

F ASC(a$)=&7F THEN u$=M$:G0TO 840 

880 ON choix GOTO 890,900, 930, 900 

890 f$=" ":GOTO 940 

900 CLS #1:PRINT#1, "nombre de decimales 
2"; VALURIGHTS(a$(0,1),1));" “32 INPUT 
#1 "nouvelle valeur :”",f$:0N choix-1 60 

TO 910,1,920 

910 f$=CHR$(10+VAL(f#)):GOTO 940 

920 f$=CHR$(20+VAL(F$)):GO0TO 940 

930 f$=CHR$ (42) 

940 1F BL=1 THEN RETURN ELSE a$(0,1)=f$: 

GOSUB 400:RETURN 

950 n=0:m=0:60SUB 2300 

960 FOR 1=1 TO fin:A$(1,0)=a$(0,0):NEXT 
i:h=VAL(a$(0,0)) 

970 h$=FN cent$("!",h):d=1:xi=1:GOSUR 40 

0 

980 RETURN 

990 u$=m$(2) 

1000 RESTORE 2390:GOSUB 2320:G0SUB 1580: 

IF ASC(a$)=&7F THEN u$=m$:G0TO 800 

1010 ON choix GOTO 1020, 1040 


1020 FOR j=FINI TO yiti STEP-1:FOR i=i T 

O FIN:a$(i, j)=a$(i,j-1):NEXT i:NEXT 

1030 FOR i=! TO FIN:a$(i,ul)="":NEXT j:6 

OSUR 470:G0T0 750 

1040 FOR i=FIN TO xi+1 STEP-1:FOR j=1 TO 
FINI:a$(i, j)za$(i-1,j):NEXT j:NEXT i 
1050 FOR j=1 TO FINtsa$txi, j)="":NEXT js 

GOSUB 470:GO0T0 7358 

1060 u$=n$:G0T0 800 

1070 u$=n$(3) 

1080 RESTORE 2400:G0SUB 2320:G0SUB 1580: 
IF ASC(a$)=&7F THEN u$=m$:G0TO 800 

1090 ON choix G0TO 1100,1120 

1100 FOR j=ul TO fini-1:FOR i=1 TO fin:a 

$(i,j)=a$(i, jti):NEXT i:NEXT j 

1110 FOR i=1 TO fin:a$(i,fint)="":NEXT i 
:60SUB 400:RETURN 

1120 FOR i=x1 TO fin-1:FOR j=i TO fini:a 

$li,j)=a$(iti, j):NEXT jENEXT i 

1130 FOR j=1 TO fini:a$(fin, j)="":NEXT j 
:60SUB 400:RETURN 

1140 n=xi:m=0:GOSUR 2300:dx1=1:G0SUR 350 
:dx1=0:G0T0 400 

1150 u$=m$(5):ERASE m$:GOSUR 1580:1F ASC 
(a$)=&7F THEN u$=m$:G0TO 800 

1160 ON choix 60TO 1170,1180,1170,1190 
1170 a$(0,4)=STR$(y1) 1a$(0,6)=STR$(U) :y= 
1:1F CHOIX(3 GOTO 1680 

1180 a$(0,3)=STR$(x1):a$(0,5)=STR$(x):x= 
1:G0T0 1680 

1190 a$(0,3)="1":a$(0,4)="{1":a$(0,5)="1" 
1a$(0,6)="1" :G0SUB. 1680:RETURN 

1200 u$=M$(2) 

1210 RESTORE 2410:GOSUB 2320:G0SUB 1580: 
IF ASC(a$)=&7F GOTO 750 

1220 m$=u$ 

1230 ON choix GO0TO 1240, 1290 

1240 bl=1:G0SUB 870 

1250 GOSUB 1700:1F BL=1 GOTO 1240 

1260 GOSUB 1820 

1270 FOR i=bi TO b3 STEP (SGN(b3-b1) CR 

1):FO0R j=b2 TO b4 STEP (SGN(b4-b2) OR 1) 

sa$li, j)=f$#MID$(a$(i, j),2)2NEXT jNENT 


i 

1280 xi=x:60SUB 470:RETURN 
1290 GOSUR 1700:G0SUR 1820 
1300 FOR i=bi T0 b3 STEP (SGN(b3-b1) OR 
1):FO0R j=b2 TO b4 STEP (SGN(b4-b2) OR 1) 
ta$(i,j)="":NEXT jiNEXT i 

1310 60TO 1280 

1320 r=1:60SUB 1700:b11$=b12$:r=0:GOSUB 
1820: ai=bl :a2=b2 

1330 BLOC=1:BL=1 :CLS#1 : PRINT#1, * COORDONN 
EES ARRIVEE :":G0SUB 1730:G0SUR 1820:A3= 
B2:A4=B4 

1340 FOR i=bi TO b3 STEP (SGN(b3-b{) OR 
1):FOR j=A3 TO A4 STEP (SGN(b4-b2) OR 1) 
:GOSUB 1910:NEXT j:NEXT i 

1350 dx=0:dy=0:XI=X:G0SUB 470:RETURN 
1360 u$=m$(4):m$(1)="":m$(2)="":GOSUR 15 
80:1F ASC(a$)=87F THEN u$=m$:G0TO 750 
1370 LOCATE #1,1,2:INPUT #1,"Nom du fich 
ier z"snf$:lF choix=1 GOTO 1390 

1380 WINDOW SAP O0, 1:0PENOUT nf$:FOR i=0 


TO FIN:FOR j=0 TO FINL:PRINTH9,a$(i, j): 

NEXT j:NEXT i:CLOSEOUT:WINDOW SHAP O,1:R 
ETURN . 
1390 WINDOW SAP O,1:OPENIN nf#$:FOR i=0 
TO FIN:FOR j=0 TO FINI:LINE INPUT#9,a$(i 
sJ)2NEXT jiNEXT i:CLOSEIN:WINDOW SWAP & 
1:G0SUB 400:G0T0 1680 

1400 u$=n$(5) 

1410 RESTORE 2420:G0SUB 2320:60SUB 1580: 
IF ASC(a$)=&7F THEN u$=m$:G0T0 750 
1420 m$=u$ 
1430 i=1:0N choix GOTO 1440,1450,1510 
1440 CLS #1:PRINT# "Titre : "ssn=0:m=9: 
GOSUB 2480:60T0 1410 
1450 u$=m$(2) 

1460 RESTORE 2430:G0SUB 2320:G0SUB 1580: 
IF ASC(a$)=&7F THEN u$=n$:G0TO 1410 
1470 m$=u$ 
1480 ON choix GOTO 1490, 1500 
1490 CLS #1:PRINT#1, "Nbre de caracteres/ 
page :";:n=0:m=10:GOSUB 2480:G0T0 1400 
1500 CLS #1:PRINT#1, "codes en decimal (x 
xx-uuy...) t"sin=0im=11:GOSUR 2480:60T0 
1400 
1510 WIDTH 255:e=8:PRINT #8, CHR$(VAL(MID 
$(a$(0,11),1,3)));:i=it4:IF i<=LEN(a$(O, 
11)) GOTO 1510 
1520 PRINT#8,FN cent$(a$(0,9),VAL(a$(0, 1 
0))):PRINT#B:PRINT#8 
1530 w=1 
1540 FOR yi=1 TO fint:xf=u:WHILE xi<=fin 

AND POS(#e)+VAL(a$(MIN(x1+1,FIN),0))<VA 
L(a$(0,10)):G0SUB 540:x1=x1+1 :WEND: PRINT 
te,CHR$(13)::NEXT yii:w=x1:1F w<fin THEN 
PRINT#E, CHR$ (12); :G0TO 1540 
1550 GOSUB 1680:RETURN 
1560 u$=M$(6) 

1570 RESTORE 2440:GOSUR 2320:G0SUB 1580: 
IF choix=1 THEN RETURN ELSE model :END 
1580 REM choix dans un menu 
1590 1=LEN(u$):n=0:choix=1 
1600 IF N>=L THEN N=0:CHOIX=1 


UE 
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1610 NI=INSTRIN+1,U$," “):1F N1=0 THEN N 
i=L+1 

1620 CLS #1:LOCATE #1,1,1:PRINT#1,LEFT$( 
US$, N) 3 : PRINT, CHRS (24) 3MIDS (US, N+1,NI-N 
1); CHR$ (24) : : PRINT#1, RIGHTS (US, L+1-N1) : 
PRINT#1,n$(choix); 

1630 GOSUB 2450 

1640 IF ASC(AS)=&F3 THEN N=N1:CHOIX=CHOI 
X+1:60T0 1600 

1650 IF ASC(A$)=8ED OR ASC(a$)=&7F THEN 
RETURN 

1660 PRINT CHR$(7);:G0T0 1630 

1670 RETURN 


=VAL(a$(0,6))-1:HINDOW #0, 3+a,80,4+b,25: 
x1=VAL(a$(0,3)):y1=VAL(a$(D, 4)) 


,3+a,4+b,25:G0T0 400 

1700 REM POINTAGE D'UN BLOC 

1710 BLOC=1:b1=1 

1720 CLS#i:PRINT#1, "coordonnees du bloc 


64+x1) ;USING"##";ul: 
1740 GOSUR 150 


loc=2 
URN 
4STR$(y1):b1=0:bloc=0:b11$=b1$: RETURN 


}:60T0 1800 


oc=0:b11$=b1$:RETURN ELSE GOSUB 160 
1800 a1$=a$ 
1810 GOTO 1730 


S'ils sont quelque part 
c'est chez 


Microfolie 5 


AMSTRAD 6128 
AMSTRAD 8256 


et les derniers logiciels. 
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1680 a=VAL(a$(0,5))-1:c=VAL(a$(0,3))-1:b 


1690 WINDOWKO, 3+a, 80, 4+b, 25:WINDOW#:, 1,8 
0,1,2:MINDOWH2, 3+a, 80,3, 3:HINDOW#3, 1,2, 4 
+b,25:MINDOU #4,3+a,80, 4, 4+b:MINDOW #5,3 


1730 LOCATE #1,18+(b1#4),1:PRINT#1, CHRS 


1750 IF bli$=CHR$(b4+x1)4STR$(u1) THEN b 
1760 IF ASC(a$)=87F THEN bl=1:bloc=0:RET 
1770 IF ASC(a$)=13 THEN bl2$=CHR$(64+x1) 
1780 IF r=1 AND a$="." THEN PRINT CHRS(7 
1790 IF a$="." THEN bloc=2:bl=2:b1$=CHR$ 
(b4+x1)+STR$(u1):PRINT#I,".";:GOSUB 2450 


:1F ASC(a$)<123 THEN PRINT#1,a$;:LINE IN 
PUT #1,b$:b12$=UPPERS(a$)+" “+b$:b1=0:b] 


1820 REM decodage d'un bloc 

1830 bi=ASC(LEFT$(b11$,1))-64:b2=VAL(RIG 
HT$(b11$,LEN(b11$)-1)):b3=ASC(LEFT$(b12$ 
11))-64:b4=VAL(RIGHT$(b12$,LEN(b12$)-1)) 
2RETURN 

1840 ba=INSTR(5,v$,"."):b11$=UPPERS(MIDS$ 
(v$,6,.ba-6)):b12$=UPPERS(MIDS (VS, bati,LE 
N(v$)-ba-1})):GO0SUB 1820:RETURN 

1850 IF ASC(MIDS(v$, dop,1))<48 GOTO 1870 
1860 IF dop<LEN(v$) THEN dop=dop+1 :G0TO 
1850 

1870 opi$-LEFT$(v$, 1) :0p2$=UPPER$(MID# (v 
$,2,1)):0p3$=MID$(v$,3, dop-2) :0p2=ASC(op 
2$)-b4:0p3=VAL (op3$) 

1880 IF VAL(op2$)>0 THEN op$=MID$(v$,2,d 
op) ELSE op$=MID$(a$(op2,0p3),2) 


- 1890 IF op$="" THEN op$="0" 


1900 RETURN 
1910 v$=HIDS(a$(a1,a2),2):a$(i, j)=MIDS(a 
$ti,j),2)21F a$(i,j)="* THEN a$(i, =" * 


1920 IF ASC(v#)=b4 THEN GOSUR 1840:a$(i, 
j)=LEFT$(a$(ai,a2),7)+CHR$(bi+i-al+b4)+S 
TR$(b2+j-a2)+"."+CHR$(bJ+i-al+64)+STR$(b 
4+j-a2)+")":RETURN 

1930 IF ASC(v$)<48 THEN GOSUB 1850:a$(i, 
j)=a$(i, j)+op1$+CHR$(ASC(op2$)+i-a1 )+MID 
S(STR$S (VAL (op3$)+j-a2),2) :v$=MID$(v$, dop 
):dop=2:60T0 1930 

1940 IF dop<>2 THEN a$(i, j)=a$(al,a2) 
1950 RETURN 

1960 ’operations 

1970 ca=0:m=-1 

1980 opt=0:dop=1 

1990 WHILE dop<LEN(v$):v$=MID$(v$, dop) 
2000 IF ASC(v$)=64 THEN GOTO 2170 ELSE d 
op=2:G0SUB 1850 

2010 IF ASC(op$)<48 OR ASC(op$)=64 THEN 
GOSUR 2260 

2020 opa=VAL(op$):G0SUB 2070 

2030 WEND 

2040 IF ca=1 THEN RETURN 

2050 v$=STR$(opt):607T0 670 

2060 1F opi$="sum" THEN RETURN 

2070 ON ASC(op1$)-41 GOTO 2090,2110,1,21 
30,1,2150 

2080 RETURN 

2090 REM multiplication 

2100 opt=opt+opa:RETURN 

2110 REM addition 

2120 opt=opt+opa:RETURN 

2130 REM soustraction 

2140 opt=opt-opa:RETURN 

2150 REM division 

2160 opt=opt/opa:RETURN 

2170 FREM operation diverses 

2180 GOSUR 1840:op1$=MID$(v$,2,3) 

2190 IF opi$="sum" G0TO 2200 

2200 itm+t)=b1: jlm+1)=b2 

2210 WHILE i(m+i)<=b3 

2220 WHILE j(nti)<=b4:0p#="ID#(a$(1(m+1) 
,itm+1)),2):1F op$="" THEN op$="0" 

2230 op2=itmt{):op4=j(mti):1F ASC(op$)<4 
8 OR ASC(op$)=64 THEN GOSUB 2280:v#=v#(m 


+1):GOSUB 1840 

2240 opa=VAL(op$):G0SUB 2110 

2250 j(m+1)=j(mt1)+1:WEND: j(m+i)=b2: à (mt 
L=i(mt1)+1 :WEND: dop=LEN(b11$)+LEN(b12$) 
+7:60T0 2030 

2260 REM 

2270 m=m+i:opt(m)=opt:dop(m)=dop:ca=l :0p 
1$(m)=opt$:v$tm)=v$:v$=MID$(a$(op2,0p3), 
2):60SUB 1980 
2280 v$=v$(a):opa=opt:opt=opt (m) : dop=dop 
(m):0p1$=opi$(m) :0p$=STR$(opa) :m=m-1 3 1F 
m=-1 THEN ca=0 

2290 RETURN 

2300 CLS#1:PRINT#1, "largeur colonne :"3: 

GOSUR 2480:1F VAL(a$in,m))<1 OR VAL{a$(n 
,n)))77 THEN PRINT CHR$(7):GO0T0 2900 ELS 

E RETURN 

2310 READ u$ 

2320 i=1 

2330 READ M$(1):1=1+1:1F M$(I-13C)°0" GO 
T0 2330 

2340 RETURN 

2350 DATA feuille bloc copie fichier imp 

ression fin,global insert efface largeur 
-colonne titre, format effacement, copie d 
’un bloc, lecture sauvegarde, titre config 
uration execution,non oui,0 

Z360 DATA format largeur-colonne, ligne c 
olonne, ligne colonne,modifie la largeur 
de la colonne ou 5e trouve le curseur, li 
gne colonne les-deux efface, D 

2370 DATA format d'impression de tous le 
5 chiffres,modifie la largeur de toute 1 

es colonnes, 0 

2380 DATA general fixe monetaire pourcen 
tage,ne change pas la donnee, virgule flo 
ttante,sous forme de francs,sous forme d 

e pourcentage, 0 

2390 DATA insert une ligne avant le curs 

eur,insert une colonne avant le curseur, 

0 

2400 DATA efface la ligne sous le curseu 

r,efface la colonne sous le curseur,0 
2410 DATA definit le format des nombres, 

efface les donnees d’un bloc,0 

2420 DATA entree d’un titre,cp/lignes co 

des, lance l'impression,0 

2430 DATA nbre de caracteres/ligne,envoi 
de caracteres de controle,0 

2440 DATA revient au tableau,retourne au 
basic,0 

2450 a$=INKEYS:1F a$="" GOTO 2450 

2460 RETURN 

2470 PRINT CHR$(7):a$(xl,uy1)="":RESUME 3 

90 

2480 ci=POS(#1):PRINT#1,a$(n,m) ;:G0SUB 2 

450:1F ASC(a$)(>13 THEN LOCATE #1,c1,VPO 

S(#1):PRINT#1, CHR$(20) ;a$;: INPUT #1,"",t 

$:a$(n,m)=a$tt$ 

2490 RETURN 

2500 LOCATE #1,70,1:PRINT#1,CHR$(24) 3; "ER 

REUR" ;CHR$(24) :CHR$(7):POKE &BOBR, 140:PO 

KE &B08C, 174:PRINTH#1,CHR$(243);SPC(10); 

2510 RESUME 150 
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C] avec moniteur monochrome .3790 F azimuth head [ ghosbuster . 130 F tennis 3 D ..150F 
DR RURRUUE d ES c ns fond corse 2 / Cutter tee 120 F foot 180 F 
state d'Angisterre.… Clhard hat mack 175F 1000 bornes .….… 145 F ‘ 
[ avec moniteur couleur ................... 3990 F [ beach head .......... 130F histo quizz .…....... CO] master of lamps ….…. 120 F Joystick AMSTRAD.................. 149 F 
[] avec moniteur monochrome .............. 2690 F O budget familial . + I80F  Chyperspace 3 D grand prix 120 F 
D business + ..… 199F  Cimperiali ri RERO \ 
i D tt CTH has ns arsecenr ce 490 F 
cahier de textes 150 F initiation basic LE 
Cap Horn ...... 149 F — vol 245F way of exploding fist...115F 
carnet d'adresses... 150F © jump jet LOU NES ei a 130F  Ctorann + dianne 
chirologie.…….… O knight lore. F9 Das... x 295 F 
D cobra pinball… Ca palette magique ... 119F rocky horror show 125F 
[ code name mat. : D la ville infernale 120 F the hobbit ........... 180F Joystick TIRVITT 
[ combat lynx Cle bagne de nepharia.. 140F  Clthe quill............. 220F Le “MUST” en matière de joystick! 8 directions, 
= or ce 2S0F le millionnaire... 140F  =turtie graphic vision .. 180F contact par micro-contact, robuste, élégant, précis, 
ENeau 1 g 250 F Dle mystère master file (français) .. 290F il ne vous décevra pas, garanti 1 an, compatible 
D ler lecteur de disquettes. .…........... 1990F  Ccours de solfège | du Kikekankio -…:.#. 160F  Cihisto-quiz.…....... 120 F standard ATARI et MSX 
C1 2ème lecteur de disquettes. ..…......... 1590 F rte Pot SL 250 F à RER Qos C gems of stradus + Joystick TIRVITT..................... 140 F 
© cordon 2ème lecteur disquette. ........... 150F MA bass "2% c 165 F star avenger 120F 
ER ES macadam bumper 160F dm darach 135€ 
dr. Watson (autoform. manager HS ……... 160F Q de ne ne : 
pe on qe RS 2J0F  Cmeurire à world cup football: 120 F 
devpac assembler .... 290 F grande vitesse 180F Des 120F 
easy bank ........... micro gestion... 150 t world war 3......... 95F 
Synthétiseur vocal AMSTRAD ; : easy calc micro sapiens 140F [salut l'artiste (DA 0) . 185 F morioN 
Enfin votre AMSTRAD peut s'exprimer! Anglais d'ori- easy file. mission delta … 120F ghostbuster 140 F pRO 
gine il gardera son accent mais, grâce à un programme easy graph .… mission detector . 120F amsword (francais) ..…. 245 F Mannesmann MT 80S 
basic, vous dira “bonjour”, “gagné” ou vous apprendra L SUP E E monopolic … _. : easy file (français)... 175 F ph top nn Berre 2e 
l'anglais ou l'allemand. tie NL eS montsegur . easy calc (français) … 175 F miliale 100 caractères par seconde. Papier 
À è gys) multicopy.… 120F easy bank (français) .. 175 F normal ou informatique. Entraînement par 
synthétiseur vocal (DK Tronics) .…........ 395 F gestion documentaire night booster. 120F 0e 95F friction ou traction. Si vous recherchez une 
synthétiseur vocal (Amstrad) .… - 390F (logys) ..…............ 160F Dthelo 5555.54 120F  CJamscalc 245F qualité “courrier”, la MT 80S vous donnera 
[1 synthétiseur vocal Français .............. 480 F C2 cobre pinball 220F LOGICIELS DISQUETTES plus que des satisfactions tant pour le texte 
DIVERS Lwarrior .…… 195 F 3 D voice chess 160 F poseidon. .….......... 269F CS Mannesraann MT ES 3350 F 
C] ruban imprimante DMP1 (par 2) ........... 198F raid sur Ténéré . ..245F sytème X rally Il PEN .260F 
O] adaptateur péritel pour 464 ....…. [ mandragore ........... 290 F PAF A INR 3 D fight -240F 
CO] adaptateur péritel pour 664-6128. ballade au pays de big ben TN OEM empire ......... .295F 
cordon pour 2° lecteur disquette … (cours d'anglais) 269F meurtre à gandre vitesse 240 F orphée (parlant) . .295 F 
— modem DIGITELEC : they sold a million : Ba ot ne lorigraph ............. 310F 
grâce à ce modem vous pourrez non seulement faire de décathlon + beach head français compatible toute impri- multiplan 
la transmission de données mais également transformer + jet set willy + sabre Aie 450 F {pour 6128 et 8256) ... 498 F 
notre AMSTRAD en minitel. MUR ES meer 180F datamat : gestion de fiehier C3 D grand prix ........ 155F Cassettes vierges C20 
C] modem {avec logiciel télétel) 1490 F sorcery "+" 169 F (français jusqu'à 4000 fiches) mission delta ......... 200 F 
boîte rangement disquettes (40) 255 F transmat 1 C MMS OR TR 450F D Lee . HE 
C] extenision 64 K (avec câble)... . 950 F Dtomcat ....…. 165F CO U-D0S : nombreuses fonctions graphologie ..... .. ; ' : 
Étscure 2 Led .690 F O syclone 2 ..… 165F supplémentaires et fichiers en [boîte à outils . 300F PRE Lg ll 130 F 
Clinterface RS 232 ........................ 590F  Cscriptor 165 F me Lg e ; 1e og de” 345F a si DA LL EEE 
zedis Il....... 165 F TR A RER , : x 
Cette carte, livrée en boîtier plastique et reliée à  Clprinter pac 160F à rsheang AUS aps Fe Dos. rs 5 O Adaptateur péritel. .…................ 390 F 
l'AMSTRAD par un câble court CL 1 ou CL 2, adjoint file (français) .. 345 F 0 ‘a RAR RE EPS ES disquette vierge 3 pouces. ............... 35F 
À A 4 tures, gestion stock, journal des le bagne de nepharia.. 165 F 
64 K RAM supplémentaires à votre AMSTRAD sous bank (français) . 345 F deë vomes Livré avec manuel. (Cliuaests 2 ur. 420 F 
forme de disquette virtuelle. Des routines d'exploitation amsgolf ...…. PEREZ CURE M ou 1150F Cl master file … 345F & : 
sont fournies avec le produit. Nous tenons à votre [code name mat. OP Damitrédiens : 185F micro script.….…....... 560 F 5 p ÿ 
disposition le logiciel JL BANK, équivalent direct du master chess.… 149 F Hi ton 150F micro spread . . 580F \ 
BANK MAN du 6128 spANNETNAN 149F ARR COMPTA à ete CO multicopy.….......... 170F 
ion RAM 64 K äbl 950 F C] graph (français) 345 F othello master... turbo pascal . . 150F 
je pate oi tn SEE CO snooker . 149F  Coub° bent... turbo tutor 475F 
Magnétophone DAMS: tançais: 7: 398 LIVRES ET REVUES autoform. à l'assemb..…. 295 F 8 bits interface printer re 
Ce magnétophone spécialement conçu pour les le langage machine du CPC... 129F C]102 prog. pour AMSTRAD 12F is à à en A enfin faire du 
micro-ordinateurs vous évitera bien des soucis. C] autoformation à l'assembleur (français) : la bible du programmaeur du CPC... 249 F graphisme sur toute Imprimante. ........... 345 F 
Entrée DIN ou Jack. Niveau règlable. Témoin 1 cassette + 1 livre méthode pratique (P.S.1) °100F Câble impri AMSTRAD 
sonore et lumineux. Alimentation intégrée : Het MERE 120 F e imprimante À 
n O] graphismes et sons du CPC... 99F CJAMSTRAD en famille .............. 5 Vous permet de connecter votre AMSTRAD à n'im- 
magnétophone . Cl les jeux d'aventure comment les 129F [] montages, extensions et périphériques 199 F p ess ” Sn es 
âble magnéto ] progr. nrages, perIpRerIA : porte quelle imprimante au standard “centronic 
“ O] peeks et pokes du CPC.................... le livre du CP/M amstrad ................. 149F © câble imprimante. .…................ 150 F 
Rallonge alimentation + vidéo © DDI 1 FIRM WARE....................... les routines sur 464, 664, 6128 .......... 149F 
ne soyez plus collé à l'écran, rallonge. 464 130 F [ concise basic spécification . amstrad assembleur ....................... 98F Carte E/S . 
664 180F super-jeux Amstrad... Vous permet de commander moteur, relais, lampe, 
4 e REVUES sonnerie, projecteur 
housse lecteur disquette ................. 85F CI AMSTRAD ouvre-toi.................. | e ee Elésite: 8 ES EE 395 F 
: : D programmes basic CPC 464............ JSF LIMIT Trenet IE CA Re de MIT DRAM MEN 
de rent ist jen our où nr CO basic au bout des doigts. .............. 149F Camstrad user - le numéro … 12F Carte E/A AMSTRAD 
$ O] trucs et astuces pour CPC 464. ......... 149 F amstrad magazine - le numéro . 18F Pour transformer votre AMSTRAD en centrale de me- 
[ boitier rangement disquettes. .......... 255 F Je tour de l'amstrad CPC la revue utilisateurs amstrad . 18F Sures. Possibilité de brancher plusieurs cartes 
Possibilités de crédit partiel ou u total Cou D Eee esters 395 F 
COMMENT COMMANDER : Cocher les) ar article(s) désiré(s) ou faites -en une liste sur une feuille à part - Faites le total + frais de port (20 T pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F pour achat supérieur à 1000 F). 
NOM ORDINATEUR CO CPC 6128 couleur [] CPC 6128 monoch [] CPC464 couleur [] CPC464 monochrome []CPC664 couleur [] CPC664 monochrome 
ADRESSE TÉL. CODE POSTAL VILLE 


Mode de paiement : [] chèque / [] mandat / [] contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 
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x sont indicatifs 


Tous nos pri 


eux d’entre vous qui ont tenté de faire une représenta- 


tion 


raphique d’un ensemble de données et ont connu 


les affres des paramétrages X/Y, des graduations d’axes 
et des décalages en tous genres. Finis, ces casse-têtes ! 


Ce logiciel se charge de tout. Il 
trace les axes, les graduations, 
leurs valeurs, les légendes, les 
unités, le titre et bien sûr la 
courbe en haute résolution ; à 
l'écran et si vous le désirez sur 
imprimante. A partir de quoi ? Au 
choix : des données entrées en 
désordre, ou bien une formule 
mathématique même ultra 
complexe ! Ajoutons à cela les 
options sauvegarde/chargement, 
l'accès aux coordonnées polaires, 
les modifications d'’axes et les 
sécurités pour étourdis. Un rêve 
tout cela ? Non, mais 9000 
octets à taper. 

Ce n’est pas un gadget, c'est un 
vrai utilitaire. 


22 


CULUY 


7 


232 


CLALLE 


ALAN A 
74 


L'ESPRIT 
DU PROGRAMME 


Pour se ‘‘’promener'” dans ce logi- 
ciel, il suffit d’avoir toujours en 
tête la chose suivante : 

Le tableau des données à repré- 
senter sous forme de courbe est 
totalement indépendant de l’en- 
semble des paramètres de tracés 
(limites d’axes, légendes, etc.). 

Autrement dit, on peut conserver 
nos axes pour d’autres données, 
ou changer les axes pour ces 
mêmes données. Souplesse 
totale et ‘‘bidouilles’’ sans limi- 
tes. 

C'est le sous-programme TRACE 
qui assemble ces deux domaines. 
Il peut enchaîner sur un ‘'HARD 
COPY’ d'écran sur imprimante 
(utilisant les codes standard 
EPSON). 

Les options fichiers (sauvegarde, 
chargement) ne concernent pas 
l'image d'écran, ce serait long 
(16 000 octets) et absurde : ce 
sont les valeurs de ces deux 
ensembles. Après chargement, il 
suffit de demander l'option 
‘’Tracé’’ pour retrouver le graphe 
en moins de cinq secondes. 

Le programme est conçu en 
‘’structuré’’, c’est-à-dire que cha- 
que module est appelé par 
GOSUB du MENU (lignes en 
1000), pour revenir à ce menu. 


LE LISTING 


Rassurez-vous, il n’est pas obli- 
gatoire de tout retaper. Vous 
pouvez vous dispenser du 


module ‘’Instructions’’ (1500) et, 
si vous n'avez pas d'imprimante, 
des modules 11000 et 58000. 


La définition des axes 


(option À, lignes 2000 à 2600) 
On vous demande d'entrer les 
limites mini et maxi pour les axes 
’X"" (horizontal) et ‘‘Y’’ (vertical) 
du graphique. Deux impératifs : 
— il faut que ces valeurs ainsi 
que leurs différences (dX, dY) 
soient des nombres entiers 
(= non décimaux) avec au maxi- 
mum deux chiffres ‘‘significa- 
tifs’”. Exemples : O, 1, 23, 460, 
— 65000. Sont interdites des 
valeurs telles que 2.5, 115, 2050 
ou 0.5. Le risque serait d’être 
piégé par la différence. Exemple : 
mini=25, maxi=140, mais la 
différence est 115 le pro- 
gramme vous le signale, et vous 
renvoie au départ. 

On demande également (faculta- 
tifs) un titre, légendes et unités 
d’axes ; ils apparaîtront sur le gra- 
phe. Puis, le programme établit 
ses coefficients de traçage (lignes 
2200 à 2600). Voir la liste des 
variables. 


Le tracé des axes 


(lignes 3000 à 4200) 

C'est très complexe, mais rapide. 
Le logiciel trace les axes X et Y, 
puis, à l’aide des coefficients pré- 
cédents, il détermine (en MODE 
2) quelles vont être les gradua- 
tions les plus rationnelles, aux 
pas de 1, de 2, de 10. lltrace les 
petits traits de graduations, avec 
des tailles différentes pour les 
valeurs en ‘5’ ou en ‘‘0‘, 
comme sur un double décimètre. 
Il écrit au-dessous (X) ou à gau- 
che (Y) leurs valeurs bien cen- 
trées en face du trait. 

Pour la clarté de lecture, il n’écrit 
que les deux premiers chiffres, 
sauf trois pour le nombre “100”. 
Ainsi, une échelle de 63000 à 
78000 sera ‘numérotée’ de 


TRACEURH 
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*63'" à ‘‘78'"" ; mais les limites 
réelles( 63000-78000) seront 
rappelées à côté. En revanche, 
une échelle de —-3 à +10 sera 
effectivement numérotée de — 3 
à +10. Tous les ‘cas de figures’’ 
ont été envisagés afin de fournir 
des graduations claires et lisibles 
(ce fut d’ailleurs un sacré casse- 
tête). 


L'entrée des données 


(lignes 5000 à 5400) 

C'est un écran de saisie à trois 
colonnes, le numéro (affichage 
automatique), valeur X, valeur Y. 
En fin de saisie, entrez en X la let- 
tre ‘’Q’’. Le nombre maxi de 
points a été fixé à 102. Vient 
ensuite le tri de ces données en 
valeurs croissantes de X. 

Vous venez de remplir le tableau 
DIM PT(102,1) (PT venant de 


DELTA X,Y 


I, K,N Eléments de comptage 
LGXS$, LGY$ LEGENDES X, Y 
MINY, MAXY : MIN, MAX des Y calculés 
MX, MY : MAXI X, Y 

[| MXE, MYE Maxi échelle X, Y 
NF Nombre total de points 
OX, OY Origines X, Y 
OXE, OYE : _ Origine échelle X, Y 
PT (102,1) ; Coordonnées des POINTS 
RGX, RGY : Rapport graphique 
RGXE, RGYE : Rapport graphique d'échelle 
ST, STX STEP de FOR NEXT 
TEXS$ LISTE d'OPTIONS 
TIT$ TITRE du graphe 
UX$, UY$ UNITES X, Y 


LEGENDE DES VARIABLES 


Chiffre droite de graduation 
DONNEE entrée 


DELTA ECHELLES X,Y 
Flag axes X,Y définis 
Nom du fichier enregistré 
Flag demande impression 
Flag demande de quitter 
Flag demande de TRACE 
H : Hauteur d'un repère 


Valeur d'une graduation 
Valeur de X dans PT(1,0) 


‘’Points'’). En ‘’colonne’’ zéro, la 
valeur X, en colonne 1, la valeur 
Y. Le nombre NF est le nombre 
de ‘’points’”, de ‘‘lignes’” dans ce 
tableau. 


L'entrée de formules 


(lignes 6000 à 7010) 

Un luxe que peu de micro-ordi- 
nateurs autres que l'AMSTRAD 
peuvent se permettre ! Une curio- 
sité du CPC est que l’on peut l'ar- 
rêter (par END ou ESC), modifier 
ou ajouter une ligne de pro- 
gramme, et repartir par un GOTO 
sans prendre les variables en 
RAM (essayez donc cela sur un 
autre. ). | 

On stoppe par un END (6080) et 
on vous invite à entrer la ligne 
7000 contenant votre formule. 
Ceci fait, tapez ENTER, puis le 
point décimal du pavé numérique, 


ce qui équivaut à GOTO 6500 + 
ENTER (voir ligne 120). Votre 
échelle des X va être divisée en 
100, donc 101 points calculés 
par votre formule. 

En lignes 6530 et 6550, vous 
pourrez vous étonner que l'on 
remplace la valeur de X par Z 
avant calcui. C’est une astuce qui 
va nous servir pour des ‘‘cas spé- 
ciaux'’ que nous verrons plus 
loin. 

A mesure que cette formule rem- 
plit notre tableau PT en Y calcu- 
lés, les variables MINY et MAXY 
gardent en mémoire la valeur mini 
et la valeur maxi de ces Y. 

En fin de calculs, ils sont affichés 
et s'ils débordent de vos prévi- 
sions, vous avez la possibilité de 
redéfinir les caractéristiques de 
l'axe des Y. 


Le tracé 


(lignes 8000 à 8200, option T) 
Très court puisqu'il reprend le 
tracé des axes en enchaînant sur 
des DRAW de ‘‘point en point’. 
Durée moyenne une seconde et 
demi... 
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EVOLUTION DE L'EFFECTIF DU CLUE 


VOLTS SECTEUR 228 VOLTS 
Numer o X Y 358 
ANNEE ADHERENTS t 2 
1 74.000 49.000 -350 
2 75.000 64.000 1 © 
“ 76.000 88.000 Ë 
4 77.000 71.000 Le ? 
5 78.000 91.000 À 
6 79.000 95.000 N 
7 80.000 108.000 29 
8 81.000 119.000 
9 82.000 104.000 -30 
us ES 
- x -368 368 : ANGLE DE PHASE 
12 85.000 157.000 se ser 
æ EVOLUTION DE L’EFFECIIF DU CLUB 28 DEG:Y=(1+X/728)#SIN(X):Z=COS(X)#(1+X/ 720) 


DAZMLMLISD 


73 74 75 76 77 78 73 88 81 
7 4 86 : 


-3 6 3 : 


Quand on l’a assez vu, on appuye 
sur une touche quelconque pour 
revenir au menu. 


Sauvegarde et chargement 


(lignes 9000 à 10500) 

Ces modules sont conçus pour 
cassette et disquette, donc le 
nom du fichier est obligatoire. A 
la sauvegarde, si vous répondez 
par ENTER, le nom est constitué 
par les huit premiers caractères 
du titre TIT$. L'extension 
‘*,GRA‘"" est ajoutée par le pro- 
gramme. 


Impression 


(lignes 11000 à 11620) 

Deux variantes : la liste des don- 
nées (pour toutes imprimantes) 
ou le Hard Copy d'écran. Celui- 
ci utilise la fonction TEST ; son 
tracé est très fin, mais il est long, 
environ neuf minutes. 


L'UTILISATION PRATIQUE 


Rappelez-vous l'issue de 
secours : touche ESC puis GOTO 
1000 (= menu), facile à retenir. 
Le côté amusant est l’utilisation 
de l'option F (formule). Nous 
avons choisi trois exemples ‘’par- 
lants””. 

1 -- Hyperbole : option A (axes, 


définissez X et Y de 1 à 10. 
Retour menu — option F. Tapez : 
7000 Y = 10/X. 

ENTER puis point décimal du 
pavé, retour menu, option T, 
c'est tout. 

2 — Sinusoïde : option À, défi- 
nissez X de O à 360 (degrés) et 
Y de —1 à 1, puis option F. 
7000 DEG:Y = SIN(X) 
Enter, point décimal, 
option T. 

3 — Cercle. Ça se complique un 
peu. 

Option A =idem que précédem- 
ment. Option F, entrez : 

7000 DEG:Y = SIN(X):Z = COS(X) 
Puis retour menu (option N). Le 
tableau DIM est correctement 
rempli, mais l’axe des X (de O à 
860) ne convient plus du tout ! 
Donc, de nouveau option A : X 
et Ÿ, tous deux de —1 à +1. 
Menu, option T. 

Mais, c'est une ellipse ! Oui, car 
les échelles n'ont pas le même 
‘’étirement’’. Remédions à cela : 
retour menu, encore option À : X 
de —-1 à 2 et Y de —1 à 1. 
Menu, option T : oh, le beau cer- 
cle ! 

Résumons la manœuvre : X (de 
0 à 360!) a servi à faire 101 cal- 
culs de Ÿ, mais c'est Z=COS(X) 
qui ést logé dans le tableau DIM. 
Lorsqu’en option À, on définit les 
limites de l'axe X, ce sont ses 


menu, 


limites pour le calcul ; libre à 
nous, une fois le tableau rempli, 
de modifier les limites de X (ou de 
b A À 


CONCLUSION 


La sortie instantanée de graphi- 
ques va séduire beaucoup d'’en- 
tre vous, mais je sens que nos 
amis matheux vont ‘’sortir’” autre 
chose que cercles ou spirales 
avec des lignes 7000 longues, 
longues... Envoyez-les nous ! 
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10 *TRAGRAPH-TRACEUR DE GRAPHIQUES-(ECRA 

N+IMPRIMANTE ) 

20 AMSTRAD CPC - M.ARCHAMBAULT 11/1985 

30 OPENOUT "BIDON" :MEMORY HIMEM-1 : CLOSEOU 

T 

100 DIM PT(102,1) 

110 DEFINT I,J,K,N:ORIGIN 0,0 

120 KEY 138," G0T0 6500"+CHR$(13) 

200 TITRE 

210 MODE 1:PAPER 2:PEN 3:CLS 

220 LOCATE 13,5:PRINT "'TRAGRAP H"': 
PEN 0 

230 LOCATE 5,10:PRINT “Michel Archambaul 

t - 11 / 1985" 

240 LOCATE 10,15:PRINT "Instructions , M 

enu ?":TEX$="IM":GOSUR 50000 

230 PAPER O:PEN 1:1F K=1 THEN GOSUR 1500 

0 
1000 ’MENU 

1010 INK O,1:INK 1,24:BORDER 1! 

1020 MODE 1:CLS 

1030 PEN J:LOCATE 2,2:PRINT 'TRACEU 
R DE GRAPHIQUE S":PEN1 

1040 LOCATE 10,5:PRINT “A - DEFINITION D 

ES AXES" 

1045 LOCATE 10,7:PRINT "V - VISION DES A 

XES" 

1050 LOCATE 10,9:PRINT *D - ENTREES DES 

DONNEES" 

1060 LOCATE 10,11:PRINT "F - ENTREE D'UN 

E FORMULE" 

1070 LOCATE 10,13:PRINT "T - TRACE DU GR 

APHIQUE" 

1080 LOCATE 10,15:PRINT *S - SAUVEGARDE" 

1090 LÔOCATE 10,17:PRINT *C - CHARGEMENT" 

1095 LOCATE 10,19:PRINT "I - IMPRIMER" 

1100 LOCATE 10,21:PRINT "Q - QUITTER" 
1110 PEN 2:TEX$="AVDFTSCIQ" :GOSUB 50000: 

PEN | 

1120 ON K GOSUR 2000, 3000, 5000, 6000, 8000 

, 7000, 10600, 11000, 12000 

1130 GOTO 1000 

2000 ’ENTREE DES CARACTERISTIQUES 

2010 CLS:FTRA=0 

2020 PEN 3:LOCATE 1,1:PRINT "Nombres ent 
iers/2 chiffres significatifs':PEN ! 

2030 PEN 2:LOCATE 10,3:PRINT "AXE X { ho 

rizontal ):":PEN 1 

2040 LOCATE 10,5:INPUT'Limite X MINI: ", 

OX$:0X=VAL(OX$) 

2050 LOCATE 10,6:INPUT'Limite X MAXI: ”, 

MXS$ :MX=VAL(MX$) 

2060 DX=MX-OX:IF DX<=0 THEN PRINT CHR#(7 
):G0TO 2040 

2070 IF VAL(MID$(STR$(DX),4,1)) >0Q THEN 

PRINT CHR$(7);"dX a 3 chiffres significa 
tifs:":DX:FOR 1=1 TO 6OC0:NEXT:G0T0 2000 

2080 INPUT" LEGENDE X: ",LGX$ 

2090 INPUT" UNITES X: *,UX$ 

2100 PEN 2:LOCATE 10,10:PRINT "AXE Y { v 

ertical ):":PEN { 

2110 LOCATE 10,12:INPUT'Limite Y MINI: * 
40Y$:0Y=VAL(OY$) 


2120 LOCATE 10,13:INPUT'Limite Y MAXI: " 
,MYS:MY=VAL(MY$) 

2130 DY=MY-OY:IF DY<=0 THEN PRINT CHR#(7 
):60T0 2100 

2140 IF VAL(MID$(STR$(DY),4,1)) >O THEN 
PRINT CHR$(7);"dY a 3 chiffres significa 
tifs:":;DY::FO0R I=1 TO 6OOÛ:NEXT:PRINT CH 
R$(17):G0T0 2100 

2150 INPUT" LEGENDE Y: ",LGY$ 

2160 INPUT" UNITES V: ",UYS$:PRINT 

2:70 INPUT® TITRE DU GRAPHIQUE: ",TIT$ 

2200 "COEFFICIENTS X 

2210 RGX=520/DX 

2220 DXE=VAL(LEFT$(STR$(DX),3)) 

2230 IF DXE=10 AND DX<>10 AND OX=C THEN 
DXE=100 ELSE IF DXE<10 AND DX45 THEN DX 
E=DXE#10 

2240 RX=DX/DXE 

2250 RGXE=520/DXE 

2260 OXE=ROUND(OX/RX) :MXE=ROUND (MX/RX) 
2300 ’COEFFICIENTS Y 

2310 RGY=330/DY 

2320 DYE=VAL(LEFT$(STR$(DY),3)) 

2330 IF DYE=10 AND DY{>10 AND OY=0 THEN 
DYE=100 ELSE IF DYE<10 AND DY<S THEN DYE 
=DYE*10 

2340 RY=DY/DYE 

2350 RGYE=330/DYE 

2360 OYE=ROUND(OY/RY) :MYE=ROUND(MY/RY) 

2500 PRINT:PRINT TAB(6);" Corriger, Voir 1 

es axes,Menu ?* 

2510 PEN 2:TEX$="CVM":GOSUB SO000:PEN 1: 

FAXY=1 

2520 IF K=1 THEN 2000 

2530 IF K=2 THEN FTRA=0:GOSUB 3000 

2600 RETURN 

3000 ’TRACE AXE X 

3070 MODE 2:INK O,13:INK 1,0:CLS 

3080 LOCATE 15,25:PRINT OX:" ";CHR$(242) 
sCHRS(243)3" "eMXs" : "sLGX$ 

3090 LOCATE 78-LEN(UX$),25:PRINT UX$ 

3100 LOCATE 13+(65-LEN(TIT$))/2,2:PRINT 

TIT$ 

3110 PLOT 100,48,1:DRAWR 520,0 

3120 PLOT 100,48:DRAUR 0,333 

3130 FOR I=0XE TO MXE:H=5 

3135 VG=VAL(LEFT$(STR$(1),3)):1F I=MXE À 

ND MXE>99 AND VG=10 THEN VG=100 

3140 C$=RIGHTS(STR$(VG),1):1F C$="5" THE 

N H=10 

3150 IF C$="0" THEN H=15 

3160 PLOT 100+(I-0XE)#RGXE, 48:DRAWR D,H 
3170 IF H=15 OR DXE<20 THEN PLOTR -12-4# 
(LEN(STR$(VG))-2),-(H+5): TAG: PRINT VG::T 
AGOFF 

J180 NEXT 

4000 *TRACE AXE Y 

407C LOCATE 2,2:PRINT UYS$:PRINT:PRINT MY 
2PRINT:PRINT * "3; CHR$(254):PRINT:PRINT 0 

Y:PRINT 

4080 FÜR 1=1 TO LEN (LGY$):PRINT SPC(5): 

MID$(LGYS, 1,1) 

4090 NEXT 


4100 IF DYE>50 THEN ST=2 ELSE ST=1 

4110 IF ST=2 AND OYE/2CHINT(OYE/2) THEN 

OYE=0YE-1 :DYE=DVE+1 | 

4120 FOR I=0YE TO MYE STEP ST:H=5 

4125 VG=VAL(LEFTS(STRS(1),3)):IF I=MYE À 

ND MYE>99 AND V6=10 THEN V6=100 

4130 CS=RIGHTS(STRS(VG),1):1F Cé="5" THE] 

N H=10 

4140 IF C$="0* THEN H=15 

4150 PLOT 100,48+(1-0YE)#RGYE:DRAUR H,0 

4160 IF H=15 OR DYE<20 THEN PLOTR -H-12- 

BLEN(STRS(VG)),4:TAG:PRINT VG: :TAGOFF 

4170 NEXT 

4180 1F FTRA THEN 4200 

4190 CALL &BBO6 

4200 RETURN 

5000 ’ENTREE DES DONNEES 

5005 WINDOW #0,1,40,7,25:CLS 

5010 WINDOW #1,1,40,1,6:CLS #1:RORDER 2 

5020 LOCATE #1,2,2:PRINT #1,"ENTREE DES 

DONNEES ( Q POUR QUITTER )" 

5030 LOCATE #1,2,4:PRINT #1, "Num ;SPC(13 
Ds X SPC (14) 3° Y" 

5040 PRINT #1,STRING$ (40, "_*) 

5100 I=1:H=1 

5110 LOCATE 1,H:PRINT USING "#H##":1::PR 

INT SPC(13); : INPUT" ",D$ 

5115 1F UPPERS(D$)="Q" THEN NF=1-1:60T0 

5200 

5120 IF VAL(D$)=0 AND D$<)*0" THEN PRINT 
CHR$(7):GOTO 5110 

5130 PT(1,0)=VAL(D$) 

5140 LOCATE 33,H:INPUT **,D$ 

5150 IF VAL(D$)=0 AND D$<)"0* THEN PRINT 
CHR$(7):G0T0 5140 

5160 PT(I,1)=VAL(DS) 

5170 1=1+1:H=H+1 

5180 IF 1/18=INT(1/18) THEN CLS:H=1 

5190 GOTO 5110 

5200 WINDOW 4#0,1,40,1,25:CLS 

5210 BORDER 1:PRINT:PRINT " PATIENCE . 


5300 ’TRI PAR X CROISSANT 

5310 F=Q: FOR J= 1 TO NF 

5320 IF PT(J,D)>=PT(J-1,0) THEN 5360 
5330 FOR R=O TO 1:PT(O,R)I=PTIJ,R):PTUJ,R 
)=PT(J-1,R) 

5340 PT(J-1,R)=PT(D,R):NEXT:F=1 

5360 NEXT 

5370 IF F=1 THEN 5310 

5400 RETURN 

6000 ' FORMULE 

6010 CLS 

6020 IF FAXY=O THEN PRINT CHR&(7);"IL FA 

UT D'ABORD DEFINIR LES AXES .....":FGR W 
=1 TO 3O00:NEXT: RETURN 

6030 PEN J:LOCATE 8,3:PRINT *Le Programm 

e est ARRETE :":PEN 1 

6040 LOCATE 2,7:PRINT "Entrez la Formule 
en ligne 7000. Ex :” 

6050 LOCATE 13,9:PRINT "7000 DEG:Y=SIN(X 
} id 

6060 LOCATE 2,13:PRINT "ENTER , puis le 


49 


. du pave numerique" :PRINT 
6080 END 
6500 PRINT: PRINT ” 


PATIENCE 


6510 K=1:STX=DX/100:1F INT(STX)=STX THEN 
K=0 

6520 I=0:FOR X=0X TO MX+K#STX STEP STX 

6530 1=I+1:2=X 

6540 GOSUR 7000 

6550 PT(1,0)=2:PT(I,1)=Y 

65650 IF I=1 THEN MINY=Y:MAXY=Y:GOTO 8550 

6570 MINY=MIN(Y,MINY) 

6580 MAXY=MAX(Y,MAXY) 

6590 NEXT:NF=I 

6600 CLS 

6610 LOCATE 1,5:PRINT "Les calculs de Ÿ 

donnent ces limites :" 

6620 PRINT:PRINT * mini ="3;MINY 

6625 PRINT:PRINT * MAXI =":MAXY 

6630 PRINT:PRINT "Vous aviez prevu de*:0 

Y;'a";MY 

66540 LOCATE 4,20:PRINT "VOULEZ-VOUS RELE 

FINIR LES AXES 7° 

6650 TEX$="ON" :GOSUR 50000 

6660 IF K=1 THEN CLS:FTRA=0:G0SUB 2109 

6700 60T0 1000 

6990 FORMULE ENTREE A LA MAIN: 

7000 Y=10/X 

7010 RETURN 

8000 TRACE 

8010 FTRA=!:GOSUR 3000 

8100 PLOT 100+(PT(1,0)-OX)#RGX,48+(PT(I, 

1)-0Y)#RGY, 1 

8110 FOR 1=2 TO NF 

8120 DRAW 100+(PT(1,0)-0X)#RGX,48+(PT(I, 

1)-OY)#RGY, 1 

8130 NEXT:IF FIMP THEN 8200 

8150 CALL &BRD6 

8200 RETURN 

9000 ? SAUVEGARDE 

9010 CLS:PEN J:LOCATE 16,3:PRINT "SAUVEG 

ARDE" :PEN 1! 

9020 LOCATE 11,17:PRINT'( Q = Retour MEN 

U )* 

9030 LOCATE 13,13:INPUT'NOM: *,FICH$ 

9035 IF FICH$="" THEN FICHS=TITS:IF TIT$ 

="" THEN 9000 

9040 FICH$=UPPERS(FICH$):IF FICH$="Q" TH 

EN 9500 

9050 FICH$=LEFT$(FICH$,8)+".GRA" 

9060 OPENOUT FICH$ 

9070 URITEH9,TITS,NF,OX,MX,LGXS,UXS, OV, M 

Y,LGY$,UVS 

9080 HRITE#9,FAXY,DX, RGXQOXE,MXE,DXE.RGX 

E,DY,RGY,OYE,MYE, DVE, RGYE 

9090 FOR 1=1 TO NF:HRITER9,PT(I,0),PT(I, 

1) :NEXT : CLOSEOUT 

9500 RETURN 

10000 * CHARGEMENT 

10010 CLS:PEN J:LOCATE 16,5:PRINT "CHARG 

EMENT'":PEN 1 

10020 LOCATE 11,17:PRINT"( Q = Retour ME 

NU )° 


10030 LOCATE 13,13:INPUT"NOM: ",FICH$ 
10035 IF FICH$="" THEN 10000 

10040 FICH$=UPPERS(FICH$):1F FICH$="Q" T 
HEN 10500 

10050 FICH$=LEFTS(FICH$,8)+".GRA" 

10060 OPENIN FICH$ 
110070 INPUT#9,TITS,NF,OX,MX,LGXS,UX$,0Y, 
MY, LGY$,UYS 

10080 INPUT#9,FAXY,DX,RGX,OXE,MXE,DXE, RG 
XE,DY, RGY,OYE,MYE, DVE, RGYE 

10090 FOR 1=1 TO NF:INPUT#9,PT(I,0),PTII 
1) :NEXT: CLOSEIN 

10500 RETURN 

11000 ?* IMPRESSION 

11010 CLS:Fû=0 

11020 LOCATE 5,5:PRINT "SI L’'IMPRIMANTE 
EST PRETE ..." 

11030 LOCATE 10,9:PRINT "D - LISTE DES D 
ONNEES" 

11040 LOCATE 10,11:PRINT "G - GRAPHIQUE" 
11050 LOCATE 10,13:PRINT "Q - QUITTER" 
11040 TEX$="DGQ" :GÜSUR 50000 

11070 ON K 60SUB 11200,11400, 11600 

11075 IF FQ THEN FQ=0:G0TO 11500 

11030 GOTO 11000 

11200 ’LISTE 

11205 PRINT#8,CHR$(27) :CHR$(64) ; 

11210 PRINT #8,SPC((4D-LEN(TIT#))/2)3TIT 
$S:PRINT #8 

11220 PRINT #8," Numero" :;SPC(10);"X" SPC 
(14);"Y" 

11225 PRINTHB, TAB(16);LGXS$; : PRINTH8, TAR( 
J1):LGY$ 

11230 PRINT#B,TAB(16) ;UX$ 3; :PRINT#8, TAR(3 
1) ;UYS$: PRINT#8 

11240 FOR I=1 TO NF 

11250 PRINT #8, USING "####";1::PRINT #8 
5SPC(B);:PRINT #8,USING "HHHHYE. HA"; PT( 
1,0); 

11260 PRINT #8,SPC(5);:PRINT #8, USING *# 
HAE HMS PT(I,1) 

11270 NEXT:FOR I=1 TO J:PRINT #B:NEXT 
11900 RETURN 

11400 ?HARD COPY 

11410 FIMP=1:GOSUR 8000 

11420 GOSUB 58000:FIMP=0:PRINT #9,CHR$&(2 
7);CHR$(64): 

11430 MODE 1:INK D,1:INK 1,24 

11500 RETURN 

11600 RETOUR MENU 

11610 FQ=1 

11620 RETURN 

12000 ? QUITTER 

12010 CLS 

12020 END 

15000 ? INSTRUCTIONS 

15010 CLS 

15020 PRINT * Ce Logiciel dessine automa 
tiquement lesaxes XY avec leurs graluati 
ons , suivantles limites que vous aurez 
fixees." 

15030 PRINT * Les Donnees peuvent etre e 
ntrees en de-sordre,il les classera en X 


croissant,oubien par une formule mathen 
atique. Le trace de la courbe est 
ultra rapide." 

15040 PRINT * On peut imprimer le tablea 

u des donneesou le HARD COPY du graphiqu 

e. Suivre l'ordre logique 

suivant :":PRINT 

15050 PRINT "i-Definir les caracteristiq 

ues des Axes.2-Entrer les donnees ou la 

Formule. 3-Trace du graphe.":PRINT 

15060 PRINT * On peut sauvegarder un gr 

aphe:Le NOM de ce fichier de donnees pe 

ut etre le TITRE du graphe si vous rep 
ondez par la touche ENTER a la question 

NOM. ” 

15070 PRINT * Si vous venez de recharger 
un fichier- graphe,passez directement a 
l'option T.":PRINT:PRINT * PRE 

SSEZ UNE TOUCHE. * 

15080 CALL &BBD6 

15090 RETURN 

50000 ?REPONSE A UN MENU 

50010 LT=LEN(TEX$):R$="" 

50020 LOCATE 15-LT,24:PRINT "Reponse ("; 

50030 FOR 1=1 TO LT-1 

50040 PRINT MID$(TEX$,1,1)3","3:NEXT 


(50050 PRINT RIGHT$(TEX$,1);")";CHR$(154) 


:CHR$ (243) ; CHR$ (207) 

50060 TEX$=UPPERS(TEXS$) 

50070 WHILE R$="":R$=INKEYS$ :WEND 

50080 R$=UPPER$(R$) :K=INSTR(TEXS, R$) 
50090 IF K=0 THEN R$="":PRINT CHR$(7);:G 
0TO 50070 

50100 RETURN 

58000 ’HARD COPY par TEST / EPSON 

58010 PRINT #8,CHR$(27) ;CHR$ (64); 

58020 PRINT #0,CHR$(27);"A";CHR$(7); 
58020 PRINT #9,CHR#(27) "M"; 

58050 WIDTH 137 

58060 FOR 1=406 TO 14 STEP -14 

58070 PRINT #8, CHR$(27)"L"3;CHR$(127) ;CHR 
$(2); 

58080 FOR J=0 TO 638 

58090 T=TEST(J, 1)#64+TEST(J,1-2)#32+TEST 
(J,1-4)#16+TEST(J,1-6)#8+TEST(J,1-8)#4+T 
EST(J,1-10)#2+TEST(J, 1-12) 

58100 PRINT #8, CHR$(T) ;:NEXT 

58110 PRINT #8,CHR$(13) :NEXT 

58120 PRINT #8,CHR$(27) ;CHR$ (64) ; 

58130 RETURN 

85535 ? ———- FIN DE LISTING —— 


CS... Sotiware 


55, rue  Tondu 


33000 Bordeaux 


Tél (56) 96.35.23 Poste 31 


Importateur — Distributeur des programmes oicidls de la Sté PRIDE-UTILITES 


POUR VOTRE 464-664-6128 


SPECIAL NOEL 


pour l'achat de 2 programmes en cadeau 


“une horloge digitale sur cassette” 
(dans la limite des stocks disponibles) 


130F 165F 
RSX SYCLONE 2 CASSETTE DISQUETTE 


Un ensemble RSX bande à bande qui apporte de nouvelles commandes 
ainsi que de NOMBREUSES POSSIBILITES pour votre CPC 464. 

e Sauvegarder vos précieux logiciels pour un chargement avec une écono- 
mie de temps de 75 % + Choix de sept vitesses de sauvegarde, 1 000 à 
4 000 bauds + Pas besoin de SYCLONE pour le rechargement à grande 
vitesse + Lecteur global d'en-tête + Commandes disponibles à partir du 
BASIC + Chargement et impression de programmes BASIC sauvegardés + 


Impression de vos bandes WELCOME. 
150F 185F 
TRANSMAT CASSETTE DISQUETTE 


Permet le transfert facile sur disques de tous logiciels sur bande. Pour un 
système à disques AMSTRAD DDI-1. 

e Modes de fonctionnement automatiques ou non-automatiques + Lecteur 
global d'en-tête de disque + Adjonction éventuelle de réadressage + Pro- 
grammes faciles d'effacement ou de changement de nom. 

BOURSE D'INFORMATIONS TRANSMAT 80 F 

Informations complémentaires pour passer des programmes difficiles. 
Mise à jour régulière des 4 premières éditions. a 60 E 


125 F 
PRINTER PAC 1 CASSETTE DISQUETTE 


Une extension de système résidante qui ajoute SIX nouvelles commandes 
à votre CPC 464/664. Un ensemble à deux programmes conçu pour l'impri- 
mante AMSTRAD DMP1 (AMDUMP) et pour les imprimantes compatibles 
ESPSON (EPDUMP). 

e VIDAGE ECRAN dans tous les modes. Deux formats avec EPDUMP e 
Vidage texte dans tous les modes + Trois nouveaux types de caractères 
pour le DMP1 + Préciser les encres de fond (la version 664 n'est pas dispo- 


nible sur cassette). 170 F 305 F 
SYSTEME X CASSETTE DISQUETTE 


Le SYSTEME X est un programme (RSX) d'extension à un système rési- 
dant qui apporte plus de 30 commandes supplémentaires à votre AMS- 
TRAD CPC 464 ou CPC 664. Etant donné la nature très compacte du code, 
il ne faut qu'environ 3k octets de la RAM, ce qui laisse une zone plus que 
confortable de programme. Le SYSTEME X utilise des commandes exté- 
rieures, identifées par la barre verticale ‘‘l”” qui les précède. 


Disponible à Vincennes chez ORDIVIDUEL, Paris chez VIDEO SHOP, 
Bordeaux chez MICRO DIFFUSION, Le Havre, Caen, Rouen et Vimou- 
tiers chez LOISIR INFORMATIQUE, Rouen chez AMIR, 16160 Gond 
Pontouvre chez MICROTOP, 03500 St Pourcain S/Sioule chez Ets 
LEMAITRE, Angers chez TEMPS X, Pau chez BASE 4, Troyes chez 
MICROPOLIS, 02100 St Quentin chez Ets COGNETS, Nice chez ARAL 
informatique, Bordeaux chez PHILIPPE ELECTRONIQUE. 


BON DE COMMANDE 


COMMENT COMMANDER : Cocher le(s) article(s) ou faites-en une liste sur une feuille à part — Faites le total + frais de port (20 F pour 


achats inférieurs à 500 F) Franco pour achats supérieurs à 500 F. 


NOM 


ADRESSE 


130F 165F 
TOMCAT CASSETTE DISQUETTE 


Le nec plus ultra de la duplication de sauvegarde bande à bande, grâce à ce 
programme simple, qui se charge pratiquement de tout. Les performances 
et la facilité de fonctionnement du TOMCAT restent inégalées sur le mar- 


és 130F 165F 
ZEDIS CASSETTE DISQUETTE 


Un désassembleur et programme d'édition de code à la fois global et convi- 
vial. Indispensable pour le néophyte tout comme pour l'expert. 
° Démontage complet Z80 + Insertion de point d'interruption et contrôle de 
registre + Entrée sous forme hexadécimale/caractères + Recherche rapide 
forme hexadécimale/caractères + Instructions complètes pour le démon- 
tage des ROM's + Visualisation continue des menus + Pré-chargement du 
registre avant l'exécution + Sortie vers l'imprimante. 65 E 
1 


130 F 
SCRIPTOR CASSETTE DISQUETTE 


Un élément essentiel pour les propriétaires d'imprimante DMP-1. Six poli- 
ces de caractères définissables. Laissez faire votre DMP-1 sans extension. 
e Caractère à jambage inférieur + Futuriste + Italiques + Compatible avec 
AMSWORD « Ecriture liée + Caractères gros et gras + Programme de défi- 
nition de caractères + Une finition professionnelle pour votre correspon- 
dance. 


LE PROGICIEL UTILITAIRE SUR DISQUE 


QUE VOUS ATTENDEZ 


ODDJOB 


Un utilitaire complet sur disque contenant tous les programmes 
que vous attendiez, le tout groupé sur un seul disque qui vous épa- 
tera. 39 k d’espace-disque utilisés. 

Voyez plutôt les possibilités : 

e Un éditeur complet, qui vous permet d'examiner le menu du dis- 
que, et d'en modifier aisément le contenu. 

e De récupérer les programmes effacés. 

e De cacher des programmes du menu. 

e Un éditeur de secteur complet pour examiner et/ou modifier le 
contenu des fichiers en HEX ou en ASCII. 

e Faire un plan de votre disque et localiser les fichiers sur le dis: 
que. 

e Empêcher l'effacement involontaire des programmes. 

e Un duplicateur de disque intelligent qui peut copier les secteurs 
endommagés/non standard sur un drive simple ou double. 

e Formatter deux fois plus vite sur l'un ou l’autre drive. 

e Transférer les programmes/fichiers dont vous vous servez le 
moins sur cassette pour récupérer votre espace disque qui vous 
coûte plus cher. 

° Augmenter la vitesse de votre drive jusqu'à 20 %. 

e Charger et lister les programmes en BASIC 

e Toutes les instructions sont fournies sur disque sur un menu 
d'aide. 

e Utilisation simple, avec sélection par une seule touche. 

e Utilise pleinement le drive. 

e Compatible avec tous les ordinateurs AMSTRAD CPC. 


* Nota : Instruction sur l'écran en anglais. 


TOMCAT 
TRANSMAT 
SCRIPTOR 
ZEDIS 

RSX SYCLONE 2 
SYSTEME X 


SIGNATURE 


| 

| 

| 

Mode de paiement : chèque/ 

à tout à : ESAT SOFTWARE, 55, rue du Tondu, 33000 Bordeaux. 


mandat/[contre-remboursement (prévoir 20 F de frais) — envoyer le 


PRINTER PAC 1 
ODD JOB 


Bernard GAUDIN 
92190 MEUDON 


De nombreuses personnes ne semblent pas 
avoir bien compris la protection des fichiers 
sous CPM+. Voici quelques explications qui, 
je l'espère, pourront les aider. 

— Mettre en fonction la protection par SET 
[PROTECT =ONI. 

Notons que l'inverse est : SET [PROTECT = 
OFF]. 


Protection d'un fichier 

Pour protéger un fichier en lecture, la 
commande sera : Nomfichier.ext [PASS- 
WORD =nom password] avec ext : com, 
text, etc. 

Pour l’exécuter, nous écrirons : 
Nomfichier.ext:nom password. 

Attention aux fichiers qui demandent des 
informations complémentaires. Ex.: DIR 
[FULL]. Il sera appelé par DIR;nom password 
[FULL]. Le password se met donc toujours 
après le nom du fichier ou de son extension. 


LES LOGICIELS PROFESSIONNELS DE 
e ( 
pm informatique 


Pour votre CPC 6128 et le PCW 8256 


Rét PM 88A FICH ET CALC 


Gestion de fichiers - Vous créez vos fichiers et vous les 
Classement par code - 
Éditions sélectives (Clients, stocks, paie, tarifs, inventaire, 


exploitez - 
étiquettes, adresses - de prix). 
Réf PM 25A COMPTA PM 


10 journaux, 5000 comptes 
2000 écritures avec 1 disquette 


Remise à zéro en cours d'année possible avec reprise des 


cumuls. 


Réf PM 43A DEVIS FAC 


Fichier articles avec prix de vente. Rédaction et édition des 
devis et des factures. Livre de ventes. 


Disquettes de démonstration + documentation = 365 francs dont 280 
francs déductibles lors de l'achat de la version complète. 
Envoyez votre adresse avec le chèque en précisant: 


- La référence PM 
- La version (démonstration ou complète) 


Pour supprimer le mot de passe, il suffira 
d'écrire : | 

SET Nom fichier.ext [PASS-WORD =] ou 
SET Nom fichier.ext [PASS-WORD = NONE]. 


Protection de 

tous les fichiers 

Par set» + »[PASSWORD = Nompassword]. 
Attention à cette commande, car tous les 
fichiers du disque seront protégés, y compris 
SET. 

Le lecteur s’assurera qu'il sait travailler avec 
ce fichier, protection en service. 

Il'est possible de protéger ces fichiers en écri- 
ture par : 

SET » ° »[PROTECT = WRITE] ou SET Nom- 
fichier. EXTIPROTECT = WRITE] 

Il n'est cependant pas possible d'avoir les 
deux. Les fichiers seront protégés soit en lec- 
ture [READ)] ou en écriture [WRITE]. La sup- 
pression sera : 

SET Nomfichier.EXT[PROTECT =] ou 

SET Nomfichier.EXTIPROTECT = NONEI. 
Pour plus de sécurité, il est possible aussi de 
protéger, par un mot de passe, l'accès de 
l'ensemble du catalogue du disque. Toutes 
les modifications seront soumises à la 
demande du password : 

SET[PASSWORD = nom password] 
L'inverse sera : 

SET [PASSWORD =]. 

Enfin, il est possible de rendre invisible un 


fichier au catalogue par SET Nom.ext [sys] ; 


pour le retrouver, faire SET Nomfichier.ext 
[DIR], ou encore de l’affecter en lecture seu- 
lement par SET Nomfichier.EXT[RO]. 

La situation inverse sera : SET Nom- 
fichier.EXT[RWI]. 


35170 BRUZ 


CPC 464 vert 
CPC 6128 vert 


CPC 464 couleur 


Notons que ces dernières commandes seront 
possibles en CPM2.2 par l'utilitaire STAT. 
Bonne Protection. 


\2S 


Thomas PLANQUETTE 
14790 VERSON 


Vous avez sans doute regretté la désagréa- 
ble absence de ‘‘lutins’’ (ou ‘‘’sprites’ en 
anglais) dans le Basic de votre AMSTRAD. 
Aussi, je vous propose un moyen simple et 
rapide d'y remédier. 

Vous connaissez le moyen de déplacer un 
caractère ASCII, redéfini ou non, en utilisant 
des coordonnées graphiques (sinon, consul- 
tez le manuel de l’utilisation à l'instruction 
TAG). Ce que vous ne connaissez pas, c'est 
le moyen de le superposer à n'importe quel 
autre dessin sans masquer tout ce qui se 
trouve sous la matrice du caractère en ques- 
tion. Il suffit d'inclure, avant l'affichage du 
caractère, la ligne PRINT CHR$(22)CHR$(1) 
pour remédier à cela. 
PRINT CHR$(22)CHR$ (0) 
retour à l’état normal. 


provoquera le 


MICRO:-C s.AR.L 


1, Av. du Gal. de Gaulle ou 


3, bd. de Beaumont 
35000 RENNES 
Tél.: 99.31.76.41 


Revendeur officiel AMSTRAD 


Imprimante DMP 2000 


DDHF1 
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Denis BOURQUIN 


Auparavant, nous introduirons 
tout de suite une nouvelle ins- 
truction assembleur qui nous sera 
très utile par la suite. Vous avez 
déjà vu, dans le manuel de votre 
AMSTRAD, l'instruction Basic 
équivalente : CALL. 

Cette instruction permet d'appe- 
ler un sous-programme écrit en 
langage machine. En assembleur, 
nous trouvons la même instruc- 
tion qui permet d'appeler un 
sous-programme, sa syntaxe 
est : CALL adresse du sous- 
programme. 

Mais, qu'est-ce qu’un sous- 
programme ? Nous dirons qu'un 
sous-programme est un ensem- 
ble d'instructions indépendant 
qui se termine par une instruction 
RETURN en Basic et RET en 
Assembleur. En général, on crée 
un sous-programme parce que 
son bloc d'instructions doit être 
utilisé plusieurs fois au cours d'un 
même programme, ainsi il ne sera 
pas nécessaire de le réécrire cha- 
que fois, il suffira d'écrire CALL 
sous-programme. 

L'instruction CALL provoque un 
déroutement du microprocesseur 
à l'adresse codée dans les deux 
octets suivant le code opération 
de CALL. 

Le microprocesseur exécute la 
suite d'instructions trouvée et 
retourne au programme principal 
contenant l'instruction CALL qui 
l'avait dérouté, quand il rencon- 
tre une instruction RETURN. 
Sur une instruction CALL, le Z80 
sauvegarde dans une zone 
mémoire que l’on appelle la pile, 
l'adresse de l'instruction suivant 
le CALL. Ainsi, lorsqu'il rencon- 


@ INITIATION 
A L'ASSEMBLEUR 


dd 


exercices très simples. 


tre l'instruction RETURN, il vient 
rechercher l'adresse de retour 
dans la pile. Le microprocesseur 
gère la pile directement, mais 
nous reviendrons dans un pro- 
chain numéro sur cette notion de 
pile. Il faut tout de même savoir 
que cette pile a un pointeur qui 
est le registre SP et qu'il est donc 
nécessaire, dans un programme 
utilisant des instructions CALL, 
d'initialiser SP afin d'indiquer au 
Z80 où se trouve cette pile. SP 
doit prendre la valeur du haut de 
cette pile et elle se trouve dans 
une zone de la RAM disponible et 
inutilisée. Pour la dimensionner, 
il suffit de regarder le nombre 
maximum de sauvegardes faites 
à un instant donné dans cette 
pile. Prenons un exemple : il reste 
de la RAM disponible entre les 
adresses 8000H et AOOOH. 
Notre programme fera au maxi- 
mum trois CALL imbriqués, c'est- 
à-dire que, dans le premier sous- 
programme, on trouvera un CALL 
au deuxième sous-programme 
qui appelera aussi le troisième. Il 
sera donc nécessaire de disposer 
de 6 octets dans la pile. Au début 
de notre programme, nous pour- 
ronsinitialiser le registre SP à une 
valeur comprise entre 8006H et 
AOO0H. L'instruction sera : LD 
SP,8006H. 

Nous venons de parler de l'ins- 
truction CALL car l'AMSTRAD 
possède un grand nombre de 
sous-programmes en ROM qui 
seront très utiles lorsqu'on tra- 
vaille en langage machine. En 
effet, il n’est pas nécessaire de 
réécrire toutes les routines 
d'entrée-sortie de l'AMSTRAD. 


près avoir passé en revue, dans le numéro pré- 
cédent, les instructions de chargement, nous 
allons les mettre en application avec quelques 


Mais revenons à nos instructions 
de transfert vues dans le numéro 
précédent. Nous commencerons 
par visualiser leurs effets en 
jouant avec la mémoire d'écran. 
Nous ne reparlerons pas de la 


conception de cette mémoire, 


mais nous vous conseillons de 
relire l’article du numéro 1 de 
CPC, dans lequel elle avait été 
analysée. Rappelons simplement 
que l'adresse du début de la 
mémoire d'écran est COOOH. 
L'AMSTRAD possède trois 
modes de visualisation. En mode 
2, qui est le mode haute résolu- 
tion, chaque point de l’écran est 
codé dans la mémoire d'écran 
sous forme d’un bit. Nous allons 
donc écrire directement dans 
cette mémoire d'écran. 

Avant d'écrire dans la mémoire 
d'écran, il va être nécessaire de 
faire passer l' AMSTRAD en mode 
2 et de faire un effacement 
d'écran. 

Le choix du mode se fait par un 
CALL à une routine de la ROM qui 
a son point d'entrée en BCOEH, 
mais avant d'effectuer le CALL, 
il est nécessaire de charger le 
registre A avec la valeur corres- 
pondant au mode désiré (0, 1, 2). 
Dans cet exemple, nous allons 
mettre tous les bits du quaran- 
tième octet de la mémoire 
d'écran à 1, c’est-à-dire que nous 
allons écrire, dans la case 
mémoire d'adresse CO28H, la 
valeur FFH, soit 255 en décimal. 
Le tableau 1 donne la représen- 
tation de 255 dans les trois bases 
qui nous intéressent le plus. 

En binaire (base 2), chaque élé- 
ment de la représentation est le 
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Hexadéci. 


Décimal 2 


facteur multiplicatif d’une puis- 
sance de 2, et les chiffres O et 1 
sont les seuls utilisés. 


En hexadécimal, il faut 16 
symboles pour représenter un 
chiffre d’où la convention d’utili- 
ser les chiffres décimaux (0 à 9) 
et les lettres À, B, C, D, E, qui 
auront respectivement les valeurs 
décimales de 10, 11, 12, 13, 14, 
15. 

Vous voyez maintenant à quoi 
correspond 255 en binaire ou en 
hexadécimal, nous pouvons donc 
l'envoyer à la mémoire écran. 
En se reportant au numéro précé- 
dent de CPC, il apparaît qu'il n’est 
pas possible d'écrire directement 
une valeur numérique dans une 
case mémoire. Nous allons devoir 
mettre d’abord cette valeur dans 
le registre A, puis transférer le 
contenu du registre À dans la 
case mémoire qui nous intéresse. 
L'exemple 1 est écrit en respec- 


tant la syntaxe de l'assembleur 
ZEN. Cet exemple utilise les 
directives assembleur analysées 
dans un numéro précédent. 


Nous aurions pu écrire aussi le 
programme de l'exemple 2 qui 
effectue le même détail. 


Un rappel sur l’utilisation d’un 
Assembleur : il faut tout d’abord, 
pour entrer le source de notre 
programme, se mettre en mode 
édition, ce qui s'obtient avec ZEN 
en frappant la lettre E. Pour sor- 
tir de l'éditeur, taper un ‘’.”" en 
début de ligne. Notez qu'il ne faut 
pas oublier à la fin du source la 
directive END. Afin de retourner 
à l'Assembleur, notre programme 
se termine par un saut au début 
de ZEN, par le mnémonique JP 
(jump). Pour assembler ce petit 
programme, taper la touche A et 


8000H 
8000H 


SCRSETMOD : 
ZEN: 


OBCOEH 
4000H 
A,2 


SCRESETMOD 
A,OFFH 
(0CO28H),A 


ZEN 


Exemple 1 


A,OFFH 
(MEMEC + 40),A 


ZEN 
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Exemple 2 


choisissez l'option V. Après 
assemblage, vous l'exécuterez 
avec la commande G8000H. 
Vous voyez alors apparaître un 
trait au milieu de la première ligne 
de l’écran. Nous vous laissons le 
soin de modifier l’adresse où 
vous transférez le registre À, ce 
qui vous permettra de mettre en 
évidence la structure de la 
mémoire écran. 

Nous allons passer à un autre 
exercice, toujours en utilisant les 
facilités d'utilisation des routines 
de la ROM de l'AMSTRAD. Cet 
exercice consistera en l'envoi 
d'un message sur l'écran de 
l'AMSTRAD. Mais, avant, 
envoyons déjà un caractère à 
l'écran, après avoir effacé ce der- 
nier. L’effacement de l'écran se 
fera par l’appel à la routine d’ef- 
facement de la fenêtre texte 
active dont le point d'entrée est 
OBB6CH. Notons, au passage, 
que les utilisateurs de CPC 464 
trouveront les principaux points 
d'entrée de la ROM dans le 
manuel SOFT 158 disponible 
chez AMSTRAD. 

Pour envoyer un caractère à 
l'écran, celui-ci doit être dans le 
registre À et on appelle la routine 
TXT OUTPUT dont le point d’en- 
trée est OBB5AH. Dans notre pro- 
gramme, nous initialiserons le 
pointeur de pile (registre SP). Voir 
exemple 3. 


Compliquons l'exercice et 
envoyons un message sur 
l'écran. Cet envoi se fera par l'uti- 


MMicropolis 


DERNIERE MINUTE 


5 % sur toute la 
boutique à tous les 
Nases de la micro. 


MICROPOLIS 
(encore eux) 
53, av. Philippe Auguste 
75011 PARIS 
Tél.: 43.56.31.10. 


lisation d’une boucle qui appellera 
à chaque passage la routine TXT 
OUT. Dans le registre À, nous 
mettrons successivement les dif- 
férents caractères de notre mes- 
sage. Nous pointerons ce mes- 
sage avec la paire de registres 
HL. Le registre B sera le compteur 
de boucle et contiendra le nom- 
bre de caractères à afficher. Nous 
utilisons, dans l'exemple 4, deux 
nouvelles instructions que nous 
verrons le mois prochain, lorsque 
nous analyserons les instructions 
arithmétiques. L'instruction INC 
HL ajoute 1 au contenu de HL. 
L'instruction DJNZ SORT, sous- 


TXTOUT: 
TXTCLEAR : 
ZEN : 


TXTOUT:. 


8000H 
8000H 
OBB5AH 
OBB6CH 
4000H 
SP,9000H 
TXTCLEAR 
A, , C ’ 
TXTOUT 
ZEN 


8000H 
8000H 
OBB5AH 


Exemple 3 


trait 1 au contenu du registre B, TXTCLEAR : 

et si le contenu de B est différent ee a Pret 
de O, on retourne à l'étiquette SP.9000H 
SORT ; si le contenu de B est égal TXTCLEAR 


à O, on continue en séquence. 
Nous nous retrouverons le mois 
prochain pour l'analyse de nour- 
velles instructions : les instruc- 
tions arithmétiques avec des 
exemples utilisant de nouvelles 
routines de la ROM, et lorsque 
nous aurons vu suffisamment MESSAGE : ‘BONJOUR’ ,0DH,0AH 
d'instructions du Z80, nous ‘ - 

commencerons un exercice plus Exemple 4 
complexe. 


L. E= GC O0 I NI Comme pour certaines applica- 


tions il n’est pas nécessaire 


d’avoir les signaux avec des 

niveaux TTL, il est prévu un autre 

connecteur de sortie qui pourra 
Denis BOURQUIN 

à ceux indiqués sur la prise DIN 


être, par exemple, un connecteur 
| DIN 5 broches. Les signaux TTL 

us vous donnons ce mois-ci les dessins du cir- Sbiachos: 
Li: imprimé de notre interface série. Rappe- 1 — RX : réception des données 


HL,MESSAGE 


chage de cette prise est le sui- 
vant ; les numéros correspondent 


sortent sur collecteur ouvert et 

les entrées sont sur des résistan- 

ces de 1 k. 
Une première application de notre 
interface peut être une liaison 
avec un terminal MINITEL via sa 
prise périnformatique. Le bro- 

lons que cette interface se monte sur notre fond par le Minitel. 

de panier et offre deux sorties dont une sur connec- 2 — Masse. 

teur standard RS232. Les signaux de sortie présents ARS des données 

sur le connecteur RS232 ont été amplifiés par des %_pr. périphérique prêt à tra- 

émetteurs de ligne et ceux des entrées arrivent sur  Vailler. 

des récepteurs de ligne. 5 — TP : terminal prêt (Minitel). 
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10 


20 ? 
30 ’ d 
: Programme permettant d'acquérir un écran Minitel et de le sau- 
40 vegarder dans un fichier Minitel.dat. 
50 ’ La liaison est interrompue par l'appui sur ESC. 
60 On dimensionne le tableau A à une taille supérieure au volume 
des données à acquérir. 
270 ? 
80 
90 ” 
100 ON BREAK GOSUB 240 
110 i=1 
120 DEFINT a:DIM a(1024) 
130 IF (INP(&FBES) AND 2)=2 THEN a(i)=IN 


P(R&FBE4):i=iti 

140 GOTO 130 

150 OPENOUT "minitel.dat" 

160 FOR j=1 TO i 

170 PRINT #9,a(j) 

NEXT j 

CLOSEOUT 

STOP 

OUT &FBES,R&B6: OUT &FBE2,52: OUT &FBE2 


220 OUT &RFBES,R&R7A: OUT R&RFBES,R&S7 
230 END 
240 ON BREAK STOP 


GOTO 150 


Ce programme envoie au Minitel un fichier acquis précédem- 
ment et le stocke sur disque sous le nom Minitel.dat. 


DEFINT a:DIM a(1024) 
i=1 


OPENIN "minitel.dat" 


80 INPUT #9,ali) 
90 IF EOF THEN GOTO 110 


100 i=i+1:GOTO 70 

110 FOR j=1 TO i 

120 IF (INP(&FBES) AND 1)=1 THEN OUT &FB 
E4,atj) 

130 NEXT j 

140 CLOSEIN 


Ce programme affiche le texte d'un écran Minitel sauvegardé 
précédemment dans un fichier Minitel.dat. 


50 fg=0 

60 CLS:DEFINT a:DIM a(1024) 
70 OPENIN "minitel.dat" 

80 i=1 

90 INPUT #9,al(i) 


100 IF EQF THEN GOTO 120 


Il ne sera pas nécessaire de relier 
les broches PT et TP à notre mon- 
tage. Nous ne relierons donc que 
la sortie RX de notre montage 
avec l'entrée RX du Minitel, la 
sortie TX du Minitel avec l'entrée 
TX de notre montage, ainsi que 
les masses. 

Pour permettre au 8251 de fonc- 
tionner normalement, nous relie- 
rons la sortie RTS du 8251 
à l'entrée CTS du 8251 dans le 
cas où nous n'utilisons pas de 
74188 et 74189 ; en effet, dans 
cet exemple d'utilisation, il n'est 
pas nécessaire de les monter. 
Dans le cas contraire, nous relie- 
rons directement la sortie RTS à 
l'entrée CTS sur le connecteur 
RS232. Le 8251 ne transmettra 
des données qui si CTS est à 
zéro. Ne pas oublier d'alimenter 
le fond de panier en +12 V et 
—12 V en cas d'utilisation du 
74188. 

Le format des signaux de la liai- 
son série avec le Minitel est repré- 
senté ci-dessous. 


2 2° 


à 
START 1 ire 


données parité 


La liaison est du type asynchrone 
avec 7 bits de données, 1 bit de 
parité paire et 1 bit de stop. 

La vitesse des échanges est, à la 
mise sous tension, de 1200 
bauds dans les deux sens. Cette 
vitesse peut être changée et choi- 
sie à : 

300 - 300 

75 - 1200 

1200 - 75 

75 - 75. 

Pour nos essais, nous laisserons 
la vitesse de 1200 bauds, mais 
regardons comment programmer 
notre interface. 

Tout d'abord, programmons le 
8251, en nous reportant au pré- 
cédent numéro de CPC. Nous 
voyons qu'il faut d'abord envoyer 
une commande de sélection de 
mode, puis une instruction de 
commande. 

Pour l'instruction de sélection de 
mode, nous choisissons : 

— 1 bit de stop, 

— génération de parité paire, 
— parité valide, 


110 i=i+ti:GOTO 90 
120 FOR j=1 TO i 


180 MEXT j 
190 j=jtli 
200 
atj)-48)Xx10 
210 j=jt+1 


%+(atj)-48) 

230 LOCATE x%,y% 
240 GOTO 180 

250 fg=1 

260 j=j+1 

270 
280 
290 


GOTO 260 


— longueur des caractères : 7 
bits, 
— facteur multiplicatif de la 


vitesse de transmission : 16X 
soit la valeur binaire : 
01111010B ou en hexadécimal : 
7AH. 

Pour le mot de commande, nous 
envoyons : 

— RTS : forcé à zéro, 


130 IF atj)=&E THEN GOTO 250 

140 IF atj)=8&1F THEN GOTO 190 

150 IF a(j)=&1B THEN j=j+1:GOTQO 180 
160 IF atj)=&F THEN fg=0:GOTO 180 
170 IF fg=0 THEN PRINT CHR#(a(j)); 


IF a(j)>63 THEN y%=a(j)-6s ELSE y%=({ 


220 IF a(j)>63 THEN x%=a(j)-63 ELSE y%=y 


IF a(j)=t&1iF THEN fq9=0: GOTO 190 
IF atj)=&F THEN fg=0:GOTO 180 


— remise à zéro de toutes les 
erreurs, 

— Validation de la réception, 

— DTR forcé à zéro, 

— Validation de la réception, 
soit la valeur binaire 00110111B 
ou 37H en hexadécimal. 

Une erreur de numérotation des 
figures s'est dglissée dans le 
numéro précédent ; la figure 3 est 


en réalité la figure 4 et inverse- 
ment. Le mot de commande est 
composé de EH, IR, RTS, ER, 
SBRK, DTR, TXEN. 

La séquence à effectuer en Basic 
pour cette programmation du 
8251 est la suivante : 


OUT &FBE5,&7A: 
OUT &FBE5,8&36 


Il nous reste à initialiser le 8253 
qui devra fournir l'horloge de 
transmission au 8251. La fré- 
quence de cette horloge doit être 
1200 x 16 = 19200 Hz, car nous 
avons choisi un facteur multipli- 
catif de 16. 

Nous utilisons le timer 2 du 8253 
que nous programmerons pour 
qu'il génère une horloge avec des 
signaux carrés. Nous le mettrons 
donc en mode 3, ensuite nous lui 
fournirons la valeur 16 bits du 
facteur de division, en deux fois, 
en lui envoyant d'abord les poids 
faibles, puis les poids forts. L'hor- 
loge appliquée au timer 2 a une 
fréquence de 1 MHz ; sa sortie 
doit être à 19200 Hz et donc le 
facteur de division sera de : 
1 000 000/19200 = 52,08. Ce 
facteur devant être un nombre 
entier, nous chargerons donc 52, 
ce qui nous donnera une vitesse 


IMPLANTATION 


Connecteur 
RS232 
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de 1201 bauds, ce qui n’est pas 
préjudiciable au bon fonctionne- 
ment de la liaison. 

La séquence en Basic pour initia- 
liser le 8253 sera par consé- 
quent : 


OUT &FBE3,&B6: 
OUT &FBE2,52:OUT &FBE2,0 


En résumé, la valeur de division 
à envoyer au timer est égale à : 


58 


1 000 000/(V+F) où V est la 
vitesse de transmission, F le fac- 
teur multiplicatif commandé au 
8251 et 1 000 000 la fréquence 
de l'horloge appliquée au timer. 
Voici donc maintenant un pro- 
gramme permettant d'acquérir 
des écrans du Minitel en parallèle 
d’une liaison, puis de les stocker 
sur disque ou cassette. Le pro- 
gramme suivant lit l'écran stocké 


«(1 


sur disquette ou cassette et le 
retourne au Minitel. Le troisième 
programme est un exemple d'af- 
fichage du texte, d’un écran Mini- 
tel sur AMSTRAD ; ce pro- 
gramme ne traite pas le graphi- 
que, ni tous les codes Minitel, 
mais respecte malgré tout le posi- 
tionnement absolu des caractè- 
res. 


Le basic de l'AMSTRAD est très adapté aux entrées- 
sorties digitales, par sa vitesse d'exécution et ses 
instructions INP, OUT et WAIT. Notre Société propose 
un ensemble de cartes d'entrées-sorties analogiques 
ou digitales, orientées vers la constitution d'automates 
programmables. Toute application spécifique peut être 
soumise à notre équipe technique pour développement. 
D'ores et déjà, une machine avec console et disquette, 
100 E/S, 16 entrées analogiques, 8 sorties triacs, 
horloges temps réel, le tout intégré en rack et avec 
alimentation autonome, revient à moins de 10.000 frs ! 


E 100 : Rack 4 cartes d'extension. E 108 : Alimentation. 

Il comporte une carte fond dè panier avec bufferisation du Cette alimentation fournit une 

bus d'adresse, 4 connecteurs encartables et un logement tension 5V/3A régulée pouvant 

pour une alimentation supplémentaire (non obligatoire). Il suppléer à celle fournie par votre 

intègre complètement les cartes d'extension. Il est relié à moniteur. Elle peut être installée 

l'AMSTRAD par les cables CL 1 ou CL 2. directement à l'arrière du rack E 
100. 


E 101 : Conversion analogique numérique. 

Cette carte permet l'acquisition de 8 tensions continues 
(0 -5V) par multiplexage. La précision est de 8 bits, et le 
temps de conversion est de 80 ys environ. 


E 102 : Entrée/Sortie - Timer. Cette carte utilise deux 
composants très célèbres de chez INTEL. L'interface 
parallèle programmable 8255 et le timer 16 bits 8253. On 
y retrouve donc 24 E/S (3 ports de 8 bits entièrement 
programmables) et 3 compteurs-timer fonctionnant 
sous 8 modes différents. 


E 103 : Conversion digitale analogique. 

A l'inverse de la carte E 101, cette carte restitue sous 
forme de tension continue (0 - 2,56 V) une valeur 
numérique codée sur 8 bits. Deux voies de conversion 
sont présentes, avec possibilité de sorties en (0 - 10 V) 
avec alimentation externe 12 V. 


E 105 : Sorties logiques et 220 V. 

Cette carte mixte propose une sortie 8 bits sous 2 
formes : 4 sorties logiques niveau TTL, et 4 sorties 220 
V/2 A. Ces dernières sont réalisées par association de 
phototriacs (isolement 2000 V), suivis de triacs 2 A sur 
radiateurs. 


Interface HPIB : E 113 
Notre société vous propose dans le domaine de l'instrumentation des cartes d'acquisition, 
d'entrées-sorties, de commande et de communication série. Mais le standard de communica- 
tion parallèle et de pilotage d'appareils de mesure est le standard HPIB. Nous vous proposons 
une carte HPIB gérant 32 appareils (adresses sur 5 bits) au standard IEEE 488. Le logiciel néces- 
saire au fonctionnement de l'interface (initialisation, RESET, émission d'une commande et 
réception d'un message...!) est présent sur la carte, intégré en EPROM (extensions BASIC). 


La télématique constitue un domaine très riche et sans cesse en expansion. L'utilisation du 
réseau téléphonique pour véhiculer des images est promise à un très grand avenir. 
Malheureusement, la gamme AMSTRAD n'est pas équipée d'interface série. Nous vous 
proposons donc une carte RS 232 et plusieurs logiciels d'application très puissants, dont un 
serveur dont vous pouvez avoir une démonstration en appelant le 78 47 96 17 à LYON. 


E 104 : Carte série RS 232. 

Cette interface est entièrement programmable (10 
vitesses de 75 à 19200 bauds, positionnement et 
Scrutation des lignes générales par software. Une prise 
CANON D 25 femelle est installée sur la carte, avec 10 
fils: connectés pour résoudre tous vos problèmes de 
communication série. La sortie est en + 12 V, selon la 


norme. 
Cartes Prix Quantité Cartes Prix Quantité 
E 100 MF: …ssiccccsse JL BANK C BE ossssssssc 
E 101 DE sois JL BANK D OF 5... 
E 102 DE sis EPROM C DE stosssss 
E 103 | I EPROM D LE. À ee 
E 104 |. SPP SERIE C QE éisseces 
E 105 BE miissscouse SERIE D MO, sc 
E 107 UF. KIT SERIE DOG ss 
E 108 ME. Hoiissccsese KIT SERVEUR PDT ssssiisies 
E 109 BE. Ssssrcnusce 
E 110 MODE 4... TO sssscesemesssassasensesnus 
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Périphériques pour AMSTRAD 


LOISITECH 83, av. Faidherbe 93106 Montreuil (1) 48 42 14 16 
ORDIVIDUEL 20 rue de Montreuil 94300 Vincennes (1) 43 28 22 06 
MICRO BOUTIQUE 37 passage de l'Arque 69000 Lyon 78 37 46 17 
Louis LEREY Barthefere 81700 Puylaurens 63 75 02 35 


Le succès mérité de toute la gamme de micro-ordinateurs AMSTRAD, du CPC 464 au 6128, a 
poussé notre Société à continuer ses efforts dans le développement de périphériques. Notre 
catalogue comporte maintenant de multiples produits constituant des outils puissants dans des 
domaines aussi divers que les automatismes programmables, la communication télématique, 
le développement de logiciels et leur intégration en EPROM, l'instrumentation scientifique et 
l'acquisition de données. Notre équipe de développement reste cependant toujours à votre 
écoute pour vos Gars spécifiques, hardware ou software. Elle peut, par sa connaissance 
La des CPC et ses compétences, orienter votre réflexion et résoudre vos problèmes 
techniques. 


Les cartes électroniques d'interface JAGOT & LEON sont de qualité ht pate (époxy 
classe 3, vernis épargne, circuits double face trous métalisés, soudure à la vague) et toutes au 
même standard de taille (100 X 120 mm). Toutes ces cartes s'intègrent si on le désire dans un 
rack fond de panier bufférisé, relié par un cable souple à votre clavier. Elles peuvent aussi être 
reliées directement par ce cable et être livrées en boîtier plastique. Les cables nécessaires au 
branchement sont le CL 1 et le CL 2, le second ressortant le bus de l'AMSTRAD. 


Une des particularités les plus intéressantes de la série AMSTRAD réside probablement dans la possi- 
bilité d'adjoindre des ROMS et RAMS supplémentaires. Nous avons donc développé une extension 
RAM 64 K en ce qui concerne la mémoire vive. Un programmateur d'EPROM, un boîtier cartouche 16K 
et une carte support d'EPROM 64 K complètent cette série côté mémoire morte. 


E 107 : Programmateur d'EPROM. 

Cette carte vous permet la programmation, la recopie 
ou la lecture d'EPROM de capacité de 2 K octets à 16K 
octets des grandes marques compatibles. Elle est 
équipée d'un support à insertion nulle. Le logiciel est 
fourni dans la notice, et est disponible en cassette ou 


disquette 

E 111 : Cartouche EPROM 16 K. E 110 : Carte support EPROM. 

Livrée en boitier plastique, et connectable Cette carte, au standard habituel JAGOT & 
directement au clavier sans cable souple, LEON, permet de connecter à votre 
cette carte vous permet d'intégrer un de vos AMSTRAD 4 EPROM de 8 K ou 16 K, et donc 
logiciels en EPROM. Il est possible de de pouvoir utiliser des programmes 
connecter plusieurs cartouches à la fois. importants en mémoire morte. 


E 109 : Extension RAM 64 K. 
Cette carte, livrée en boîtier plastique et reliée à l'AMSTRAD par un câble court CL 1 ou CL 2, 
adjoint 64 K RAM supplémentaires à votre AMSTRAD sous forme de disquette virtuelle. Des 
routines d'exploitation sont fournies avec le produit. Nous tenons à votre disposition le logiciel 
JL BANK. équivalent direct du BANK MAN du 6128. 


+ 


Er 


: nn. 
E 112 : Clé de protection électronique. 
Idéale pour protéger vos logiciels, cette clé doit être présente sur l'AMSTRAD pour toute utilisa- 
tion de programme. La duplication en est impossible, et ce composant gagnera beaucoup de 
temps et de sueur aux concepteurs de logiciels professionnels ! 


AT SERIE : Ce produit comprend une disquette programme et un cable de liaison Minitel AMSTRAD 
L 5. Il permet : 

- l'utilisation de l'interface RS 232 pour une imprimante série en lieu et place de la sortie CENTRONICS et 
la compatibilité de la carte avec CP/M 2.2, 

- l'enregistrement, l'archivage, l'édition sur imprimante de pages vidéotex en provenance du Minitel 
avec émulation du clavier Minitel, 

- l'échange de programmes, fichiers, etc. avec d'autres AMSTRADISTES équipés comme vous. 

Ce logiciel est vendu sous forme d'un KIT SERIE avec la carte RS 232. 


KIT SERVEUR : |! vous permet de vous constituer votre propre serveur avec vos propres images : tout un 
chacun peut appeler votre serveur, consulter à l'aide d'un Minitel les informations que vous souhaitez 
diffuser (publicité, renseignements commerciaux. informations de club.) et vous laisser des messages. 
Il comprend : 

- un modem agréé PTT, autorépondeur, 

- une carte série RS 232, 

- le logiciel SERIE et le cable CL 5, 

- une disquette programme (de la Société JMN) pour la création d'images vidéotex, leur archivage et la 
constitution du chainage de serveur. 


Signature (des parents pour les mineurs) 


Ci-joint la somme de .......... F par ; 
chèque bancaire D chèque postal D mandat O à l'ordre de la société 


TRAFALGAR est une bataille 


navale, durant laquelle deux 
joueurs s'opposent. Le premier 
joueur commande la flotte fran- 
çaise (navires verts) ; le second 
joueur, la flotte anglaise (navires 
jaunes). Les deux flottes possè- 
dent chacune 13 navires. 

Le jeu apparaît à l'écran de la 

manière suivante : 

— en haut à gauche, la carte 
maritime où se déroule la 
bataille, 

— en haut à droite, la rose des 
vents qui indique la direction 
du vent, 

— en bas à gauche, la prise des 
instructions, 

— en bas à droite, l'indicateur de 
tours. 

Chaque partie se joue en 100 

tours, qui se décomposent 

comme suit : 

— L'ordinateur choisit au hasard 

la direction du vent. 

— Le premier joueur indique les 

coordonnées (horizontale et ver- 

ticale) du navire qu'il désire 
déplacer. 

— Îl indique ensuite la direction 

(mouvement) de son choix (Nord, 

Sud, Ouest ou Est). C'est à cette 

fin que chaque navire dispose 

d'un potentiel de déplacement 

théoriquement constant et égal à 

5. || se déplace donc de 5 

‘’cases’’ à chaque tour. Cepen- 

dant, le vent influe provisoire- 

ment sur ce potentiel. 

Le potentiel de déplacement d'un 


60 


navire se trouve réduit de 2 sile 
vent est contraire au mouve- 
ment, et de 1 si le vent souffle 
dans une direction perpendicu- 
laire au mouvement. Enfin, si la 
direction du vent correspond au 
mouvement, le potentiel de 
déplacement reste de 5. 

— Après s'être déplacé, le navire 
tire automatiquement dans la 
même direction que le mouve- 
ment, et dans elle seule. Inter- 
vient alors le potentiel de tir (il 
varie de 1 à 6, c’est-à-dire que la 
longueur du tir varie de 1 à 6 
‘’cases”’’). Le potentiel de tir est 
repérable au symbole affiché (il 
existe 6 types de navires — cf. 
programme ‘‘SYMBOL''). Cha- 
que navire touché par un tir 
adverse perd un point de poten- 
tiel de tir. Si ce potentiel est infé- 
rieur à 1, le navire est considéré 
détruit et disparaît de la carte. 
— Le tir du navire du premier 
joueur terminé, c'est au second 
joueur de jouer et de suivre le 
même schéma que ci-dessus, 
puis le tour se termine et le sui- 
vant commence. 

Si, avant le 100: tour, un joueur 
a réussi à détruire la flotte 
adverse, il est déclaré vainqueur. 
Dans le cas contraire, au 100 
tour, l'ordinateur arrête la partie, 
additionne les potentiels de tir 
des navires restants, et ceci pour 
chaque joueur, et déclare vain- 
queur le joueur ayant le potentiel 
de tir le plus élevé. 


10 * #4+ TRAFALGAR #44 

15 * Laurent PIASENTIN 

29 MODE 1 

30 FOR X=0 TO 174 STEP 2:MQVE O+X.300:TA 
3:FRINT'T RAF AL G A R'::NEXT:TAGOFF 
40 LOCATE 26,11:PRINT'DE":LOCATE 22,14:P 
RINT'LAURENT  PIASENTIN" 

50 FOR X=100 TO 900 STEP 100:SOUND 1,X,2 

0,4:S0UND 2,1000-X,20,4:SOUND 1,1000-X,2 
0,4:SOUND 2,X,20,4:NEXT 

bO LOCATE 1,24:INK 1,24:PRINT'APPUVEZ SU 
R UNE TOUCHE S.V.P':CALL &BPO6 

70 ’##+ REGLES #44 

80 MODE 2:LOCATE 25,1:PRINT'UN PEU D'HIS 

TÔIRE ..." 

90 LOCATE 1,6:PRINT'Le 21 oct. 1805, Nels 

on qui commande la flotte anglaise renco 
ntre.non loin du capde Trafaigar,Villene 

uve qui fait route vers Naples,sur l’ord 
re de Napoleon. Nelson engage le com 
bat,mais meurt aussitot." 

100 PRINT" Cependant la flotte francaise 

est vaincue,et Villeneuve est capture."*: 
GOSUR J10:LOCATE 1,25:PRINT'APPUYER SUR 

UNE TOUCHE S.V.P":CALL &PB9É 

110 CLS:LOCATE 1,10:INPUT'Apres ce petit 
rappel historique. desirez-vous connaitr 
e les regles de Trafalqar [O/N] *;REP$ 
120 REP1S=UPPERS(REPS$):IF REPI1$="N" THEN 
280 

130 CLS:LOCATE 33, 1:PRINT'### REGLES #44 
"LOCATE 1,3:PRINT"  TRAFALGAR est une b 
ataiile navale.durant laquelle deux joue 
urs s'opposent.Le premier joueur com#an 
de la flotte francaise (navires verts)il 
e second joueur,la flotte anglaise (navi 
res jaunes)." 

140 LOCATE 34,5:PRINT'Les deux flottes p 
ossedent chacune 13 navires.":PRINT'Le j 
eu apparait a l'ecran de la maniere suiv 
ante :*:PRINT'- en haut a gauche,la cart 
e maritime ou se deroule la bataille.":P 
RINT'- en haut a droite, la rose des vent 
s qui indique" 

150 LOCATE 50,8:PRINT'la direction du ve 
nt.° 

160 PRINT'- en bas à gauche,la prise d2s 
instructions. ":PRINT"- en bas a droite, 

l’indicateur de tours.":PRINT'Chague par 

tie se joue en 100 tours.qui se decompos 

ent comme suit :":PRINT'- l'ordinateur € 


ail in 
ol | 


\ À 


hoisit au hasard la direction du vent." 
170 PRINT'- le premier joueur indique le 

s coordonnees (horizontale et verticale) 
du navirequ’il desire deplacer." :PRINT" 

- il indique ensuite la direction (mauve 

ment) de son choix (Nord,Sud, Ouest ou 

Est), C'est a cette fin que chaque navire 
180 LOCATE 42,16:PRINT'" dispose d’un pote 

ntiel.de deplacement" :PRINT" theor iquemen 

t constant et egal a 5.11 se deplace don 

c de 5 cases’ a chaque tour.Cependant 1 

e vent influe provisoirement sur ce pote 

ntiel." 

190 PRINT'Le potentiel de deplacement d’ 

un navire est reduit de 2 si le vent est 
contraireau mouvement,et de 1 si le ven 

t souffle dans une direction perpendicul 

aire au  mouvenent.Enfin si la directio 

n du vent correspond au mouvement, le pot 

entiel de” 

200 PRINT" deplacement reste de 5.":LOCAT 

E 1,25:PRINT"APPUYER SUR UNE TOUCHE 5.V, 

P":CALL &BBO6 

210 CLS:PRINT'- apres s'etre deplace, le 

navire tire automatiquement dans la meme 
direction quele mouvement,et dans elle- 

seule, Intervient alors le potentiel de t 
ir (il varie de 1 a 6 - c'est a dire qu 

e la longueur du tir varie de 1 a 6 ‘cas 

es’ -).Le" 

220 PRINT'potentiel de tir est reperable 
au symbole affiche. Chague navire touche 
par un tir adverse perd un point de p 

otentiel de tir.Si ce potentiel est infe 

rieur à Î,le navire est considere detrui 
tet disparait de la carte." 

230 PRINT"- le tir du navire du premier 

joueur termine,c’est au second joueur de 
suivre lememe type de shema pour jouer, 

puis le tour se termine et le suivant co 

mmence. * 

240 PRINT" Si.avant le 100eme tour,un j 

oueur a reussi a detruire la flotte adve 

rse,il estdeclare vainqueur.Dans le cas 
contraire,au 100eme tour, l'ordinateur ar 
rete la  partie,additionne les potentie 

1s de tir des navires restants.et ceci p 

our chaque 

250 LOCATE 1,12:PRINT" joueur,et ceclare 

vainqueur le joueur ayant le potentiel d 

e tir le plus eleve.":LOCATE 1,25:PRINT* 

APPUYER SUR UNE TOUCHE S.V.P":CALL LRROG 


260 MODE 1:LOCATE L,3:PRINT CHR$(143) ;:P 


RINT" Potentiel de tir: b":PRINT:PRINT 
CHR$(144)::PRINT" Potentiel de tir: 5 

":PRINT:PRINT CHR$(145)::PRINT"  Potent 
iel de tir: 4":PRINT:PRINT CHR$(146)::PR 

INT" Potentiel de tir: 3" 

270 PRINT:PRINT CHR$(147)::PRINT"  Pote 

ntiel de tir: 2":PRINT:PRINT CHR$(148):: 

PRINT" Potentiel de tir: 1° 

280 LOCATE 1,24:PRINT' APPUYER SUR UNE TO 

UCHE POUR ENREGISTPRER TRAFALGAR" :CALL &E 

BO6 

Z90 RUN" TRAFALG2* 

JO0 #+## DEFINITION SYMBOL ### 

310 SYMBOL AFTER 128 

320 SYMPOL 129,3,15,31,63,127,255,255,25 

5 

330 SYMPOL 1930,255,127,63,31,63,255,255, 

255 

340 SYMPOL 131,127,127, 235,295, 255,255,2 

55,255 

350 SYMPOL 132,255,127,127,127,127,127,1 

27,127 

J60 SYMPOL 133,127,255,255,255, 255,255,2 

55,255 

370 SYMPOL 134,31,63,63,64,127,127,127,1 

27 

J80 SYMPOL 135,1,1,1,3,7,15,15,15 

390 SYMPOL 137,0,0,0,24,24,0,0,0 

400 SYMPOL 138,6,6,0,0,0,0,96,9b 

410 SYMBOL 139,6,6,0,24,24,0,96,96 

420 SYMBOL 140,102,102,0, . 0,0, 102, 102 

430 SYMBOL 141,102, 102,0, 24,24,0, 102, 102 

440 SYMBOL 142,102, 102 D 102,0,102,1 

02 

450 SYMBOL 143,198,66,231,231,71,226, 127 

«126 

460 SYMBROL 144,64,224,2 

126 

470 SYMBOL 145,192,76,228,238, 78, 196,255 

126 

480 SYMBOL 146,0,102,34,119,119,162,255, 

126 

490 SYMPOL 147,0, 12,4,206, 78, 196,255, 126 

500 SYMPOL 148,0,24,8,28, 28, 201,255, 126 

510 SYMROL 200,0,0,0,1,1,1,1,1 

520 SYMBOL 201,3,3,3,7,7,3,3,3 

390 SYMPOL 202,3,3,3,7,7,7,7,7 

540 SYMBOL 203,0,128, 128, 128, 12B, 192,192 

«192 

350 SYMPOL 204,192,192,192,224,224,192,1 

92,192 

560 SYMROL 205,192,192,192,192,192,192,1 

92,192 


, 230, 66, 227,255 


5 
"870 SYMBOL 219,0,192,255,255, 255,255, 255 


570 SYMROL 206,0, 128,224,252,255, 255. À 
.235 


580 SYMBOL 207,0,0,1,7,255, 255, 255,255 
590 SYMOL 208,0,0. 224, 248, 235, 295, 295,2 


55 
800 SYMPOL 209,0,0, 7, 31,255, 255, 255, 255 
610 SYMBOL 210,0,0, 192,255, 255, 255, 255, 2 
55 

420 SYMBOL 211,0, 12, 255,255, 255, 255, 255, 
255 

630 SYMBROL 212,3, 145,255, 255, 255, 255, 255 
,255 

640 SYMBOL 213,0,0,0,0,3,15,31,63 

850 SYMBOL 214,255, 255, 255, 255, 255, 255, 2 
55,255 

660 SYMBOL 215,0,6, 31,255, 255, 255, 255, 25 


,255 

480 SYMROL 221,31.63, 255,295, 255, 255, 295 
=€ 

490 SYMBOL 223,128, 192, 224 

55,255 | 

700 SYMPOL 225,0,0,0, 255, 255, 255, 255, 255 

710 SYMBOL 227,0,0.0, 252, 255,255, 255, 255 
726 SYMBOL 229.0,2,7,127, 265,255, 25,25 
730 SYMBOL 235,63, 31,31,31, 31,255,255, 

5 

740 SYMBOL 236,63, 127,255, 255,255 
5,255 

750 SYMBOL 237,1,3,7,63,127,255, 255, 255 
760 SYMPOL 238,0,0,7,15, 47, 255, 255, 255 
770 SYMPOL 239,255, 127, 15,31, 255, 255, 255 
,255 

780 SYMROL 240,127, 127,255, 255, 255, 255,2 
55,255 

790 SYMBOL 241,255, 127,127,63,63,63,63,6 
3 

800 SYMROL 242,24,124,126,126,127,63,63, 
63 

810 SYMBOL 243,63,63,127,127,63,63,63, 63 
820 SYMROL 244,63, 63,63, 63, 62, 2 

830 SYMBOL 245,0,0,0,0, 248,254, 254,254 
840 SYMBOL 246,254, 254,252, 252, 252, 254,2 
54,254 

850 SYMBOL 247,254,254, 128,0,0,0,0,0 

860 SYMROL 248,7,15,15,15,7,7,7,7 

870 SYMBOL 249,7,15,15,31,31,31,31,31 
880 SYMBOL 250, 31,63,63, 127,255, 255,255, 
255 

890 SYMBOL 251,192, 192, 192,192, 192, 224,2 
24,224 

900 SYMBOL 252, 224,240, 240, 240, 248, 252,2 
52, 252 

910 RETURN 


235,253, 253,2 


12393,25 


Illustration: Jean-Luc AULNETTE 
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10 ?* #44 TRAFALGAR ##4 
15 * Laurent PIASENTIN 

20 CLEAR:ON BREAK GOSUR 2160 

30 MODE 1:INK 2,18:1NK 3,6 

40 GOSUR 1780 

50 ? ### INITIALISATION ### 

60 DIM U(16,26):DIM T(16,26):DIM D(16,2b 
) 

70 FOR 1=1 TO 16 

80 FOR Z=1 TO 26 

90 U(I,2)=0:T(1,2)=0:D(1,2)=0:NEXT 2,1 
100 FOR I=3 TG B:U(T,26)=3:NEXT 

110 FOR Z=4 TO 26:U(16,2)=3:NEXT 

120 FOR 2=13 TO 26:U(15,2)=3:NEXT 
‘190 FOR 2=22 TO 26:U(14,2)=3:NEXT 

140 FOR 2=23 TO 26:1=2-11:U(13,2)=3:U(I, 
4)=3:U(1,5)=3:NEXT 

150 FOR 2=24 TO 2b:1=7-20:U(12,2)=3:U(11 
,1)=3:U(1,3)=3:U0(1,4)=3:NEXT 

160 FOR 2=25 TO 2b:U(10,2)=3:U(9,7)=3:NE 
XT:U(11,4)=3:0(11,5)=3 

170 TOUR=1:LOCATE#2,4,5:PENX2,2:PRINT#2, 
TOUR 

180 ? ### AFFICHAGE NAVIRES ANGLAIS #44 
190 NBREB1=0 

200 A=INT(2#RND(1)+1) :P=INT (26#RND(1)+1) 
21F U(A,B)=1 OR U(A,B)=3 THEN 200 

210 UUA,B)=1:T=INT(GERND(1)+4):T(A,B)=T: 
D({A,B)=5 

220 GOSUB 1580:SOUND 1,100, 1:H=4+B:V=3+A 
LOCATE H,V:PEN 1:PRINT CHR$(S) 

230 NBREBI=NBREB{+1:IF NBRER1{>13 THEN 2 
00 

240 ? ### AFFICHAGE NAVIRES FRANCAIS ### 
250 NBREB2=0 

260 A=12+INT(2#RND(1)+1):B=INT(26#RND(1) 
+1):1F U(A,B)=2 OR U(A,B)=3 THEN 260 

270 U(A,B)=2:T=INT(Z#RND(1)r4): TA, B)=T: 
D(A,B)=5 

280 GOSUB 1580:SOUND 1,100,1:H=4+B:V=3+A 
:LOCATE H,V:PEN 2:PRINT CHR$(S) 


290 NBREBZ=NBREB2+1:1F NBRER2C>13 THEN 2 
60 

300 ? +#+# JEU #4 

310 FOR JOU=1 TO 2 

320 ? ### DIRECTION DU VENT *## 

330 DVENT=INT(3.5#RND(1)+1) 

340 LOCATE 36,4:PEN 1:PRINT "N':LOCATE 3 
2,8:PRINT "O":LOCATE 36,12:PRINT*S":LOCA 
TE 40,8:PRINT ‘E" 


350 ON DVENT GO0TO 360, 370, 380, 390 


360 DVENTS$="N":LOCATE 36,4:G0T0 400 

370 DVENT$="Q" :LOCATE 32,8:G0T0 400 

380 DVENT$="S":LOCATE 36,12:GOT0 400 
390 DVENT$="E":LOCATE 40,8 

400 PEN 2:PRINT DVENT$ 

410 * x#x PRISE DES INSTRUCTIONS #+# 
420 CLS#3:PEN#3,3:PRINT#3," AU JOUEUR N. 
"sJOU:; "DE JOUER" 

430 FOR X=0 TO Z000:NEXT 
440 CLS#3:PEN#3, 3: PRINT#3." 
ORIZONTALE" 

450 LOCATE#3, 13,3: INPUT#3, A 
460 SOUND 1,200,10:1F A<1 OR A>16 THEN 4 
40 

470 CLS#3:PEN#S, 3: PRINT#3,* 
VERTICALE" 

480 LOCATE#3, 13,3: INPUT#3,R$ 
490 SOUND 1,200, 10:N1=0:B1$=UPPER$(R$) :R 
ESTORE 2010 

500 FOR X=1 TO 26 

510 READ N1$ 

520 NI=N1+1:1F N1$=P1$ THEN B=N1 ELSE 54 
0 

530 GOTO 550 

540 NEXT:G0TO 480 

550 IF U(A,B)=0 THEN 440 

560 IF U(A,B)=3 THEN 440 

570 IF U(A.B)=1 AND JOU=1 THEN 440 

580 IF U(A.B)=2 AND JOU=Z THEN 440 

590 CLS#3:PEN#I, 3: PRINT#3," MOUV 
EMENT* 

600 LOCATE#3,13,3:INPUTHI,M 

610 SOUND 1,200, 10:M1$=UPPERS (M$) 

620 IF M1$="N" THEN F=1:G0TO 680 

630 IF M1$="S" THEN F=2:G0TO 720 

640 IF M1$="E* THEN F=3:G0T0 760 

650 IF M1$="Q" THEN F=4:60T0 800 

660 G0TO 600 

670 * ##x POINTS À ENLEVER LORS DES DEPL 
ACEMENTS DES NAVIRES #+ 

680 IF Mi$="N" AND DVENT$="N" THEN VENT= 
0 

690 IF M1$="N" AND DVENTS$="0" OR DVENTS= 
"E" THEN VENT=-1 

700 IF M1$="N" AND DVENT$="S" THEN VENT= 
=? 

710 GO0TO 840 

720 IF M1$="S" AND DVENT$="S" THEN VENT= 
0 

730 IF M1$="S" AND DVENTS="0" OR DVENT$= 
"E" THEN VENT=-1 

740 IF M1$="S" AND DVENT$="N" THEN VENT= 
-2 

750 60TO 840 

760 IF M1$="E" AND DVENT$="E" 


POSITION H 


POSITION 


THEN VENT= 


| 


7170 IF Mi$=*Ee" AND DVENTS="N" OR DVENT$= 
*G" THEN VENT=-1 

780 IF M1$="E" AND DVENT$="0" THEN VENT= 
-2 

790 GOTO 840 

800 IF M1$="0" AND DVENT$="0" THEN ENT: 
1 

810 IF M1$="0" AND DVENT$="N' OR DYENTS= 
*G* THEN VENT=-1 

820 IF M1$="0" AND DVENT$="E" THEN VENT= 
-2 

830 * ### DEPLACEMENT #44 

840 AA=A:BB=B:AAÎ=A:BPI=B 

850 1F M1$="0" OR M1$="E" THEN 930 

B60 * ### DEPLACEMENT NORD ET SUD ### 
870 FOR C=AAÏ+1 TO AAÏ+S+VENT 

880 IF MI$="N" THEN AA=AA-1 ELSE AA=AA+I 
890 IF AA(I OR AA>16 THEN 990 

900 1F U(AA,BB)<>0 THEN 990 

910 GOSUB 1630:NEXT:G0T0 990 

920 ? ### DEPLACEMENT OUEST ET EST ### 
930 FOR C=BB1+1 TO PB1+5+VENT 

940 IF M1$="0" THEN PB=BP-1 ELSE BP=BR+ 
950 IF BB<i OR BB>26 THEN 990 

960 IF U{AA.BB)<>0 THEN 990 

970 GOSUB 1630:NEXT 

980 * #44 TIR ##+ 

990 ON F GOTO 1000, 1010, 1020, 1030 

1000 0=-1:P=0:G0T0 1040 

1010 0=1:P=0:G0T0 1040 

1020 0=0:P=1:60T0 1040 

1030 0=0:P=-1 

1040 R=A:W=B:FL=0 

1050 FOR C=1 TO T(R,W) 

1060 IF FL=1 THEN 1220 

1070 A=A+O:P=P+P:IF Af1 OR Ad16 OR Ré © 
R B>26 THEN 1220 

1080 IF U(A,B)=3 THEN 127 

1090 1F U(A,B)=0 THEN 1200 

1100 IF U(A,B)=1 AND JOU=2 OR U(A,R)=2 À 
ND JOU=1 THEN 122 

4110 IF U(A,B)=1 AND JOU=1 OR U(A,B)=2 À 
ND JOU=2 THEN FL=1 

1120 T(A,B)=T(A,B)-1 

1190 IF T(A,B)=0 THEN U(A,B)=0 AND D(A,B 
)=0 ELSE 1150 

1140 SOUND 1,400, 100,3,0,0, 10:H=4+B:V=3+ 
AëLOCATE H,V:PRINT * *:G0T0 1210 


il | ; 


pra Pre 
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1150 * ##e AFFICHAGE APRES TIR #xx 
1160 GOSUB 1700:H=4+B:V=3+A:LOCATE H,V 
1170 1F JOU=2 THEN 1190 

1180 SOUND 1,67,10,3:PEN 1:PRINT CHRS(S) 
:60T0 1210 

1190 SOUND 1,67,10,3:PEN 2:PRINT CHRS(S) 
:60T0 1210 

1200 SOUND 1,30, 1,3:H=4+B:V=3+A:LOCATE H 
,V:PEN 3:PRINT ".":FOR X=0 TO ZO0:NEXT:L 
OCATE H,V:PRINT " ” 

1210 NEXT € 

1220 A=R:B=H 

1230 * ### UN VAINQUEUR ? #4 

1240 T1=0:T2=0 

1250 FOR 1=1 TO 16 

1260 FOR 2=1 TO 26 

1270 IF U(1,2)=0 OR U(I,2)=3 THEN 1290 
1280 1F Ut1,Z)=1 THEN Ti=Ti+i ELSE T2=72 
# 

1290 NEXT 2,1 

1300 1F Ti=0 AND 120 THEN 1310 ELSE 13 
20 

1310 CLSW3:PEN#3, 3:PRINTH3, "LE GAGNANT E 
ST LE JOUEUR N.1":G0T0 1520 

1320 1F T1€)0 AND T2=0 THEN 1330 ELSE 13 
40 

1330 CLSH3:PEN43, 3:PRINT#3, "LE GAGNANT E 
ST LE JOUEUR N.2":60T0 1530 

1340 * ### FIN BOUCLE JOUEURS #44 

1350 NEXT JOU 

1360 TOUR=TOUR+ 

1370 1F TOUR<=9 THEN 1390 ELSE 1380 

1380 1F TOUR<=99 THEN 1400 ELSE 1410 
1390 LOCATER?, 4,5 :PEN42, 2:PRINT#2, TOUR:6 
OTO 1420 

1400 LOCATE#?, 3, 5:PENX2, 2:PRINT42, TOUR:G 
OTO 1420 

1410 LOCATE#2,3,5:PEN42, 2: PRINT#2, TOUR 
1420 IF TOURC>100 THEN 310 

1430 ? ### FIN DU JEU APRES 100 TOURS ## 
+ 

1440 T1=0:T2=0 

1450 FOR 1=1 TO 16 

1460 FOR Z=1.T0 26 

1470 IF U(I,2)=0 OR U(1,2)=3 THEN 1490 
1480 IF U(1,2)=1 THEN T{=T{4T(1,2) ELSE 
T2=T24T (1,1) 

1490 NEXT 2,1 

1500 1F T2T1 THEN 1520 

1510 CLS#3:PEN43, 3:PRINT43, "LE GAGNANT E 
ST LE JOUEUR N.2":G0T0 1530 

1520 CLSW3:PEN#3, 3:PRINT#3, "LE GAGNANT E 
ST LE JOUEUR N.1":G0T0 1530 


1530 FOR X=100 TO 300 STEP 5:SOUND 1,X,5 
«3:S0UND 2,400-X,5,3:NEXT 

1540 FOR X=500 TO 200 STEP -5: SOUND 1,X 
13,3: SOUND 2,700-X,5,3:NEXT 

1550 FOR X=100 TO 300 STEP 5:SOUND 1,X,5 
3: SOUND 2,400-X,5,3:NEXT 

1560 END 

1570 * ### AFFICHAGE DERBUT NAVIRE ### 
1580 ON T(A,B)-3 GOTO 1590, 1600, 1610 
1590 S=145:GO0T0 1620 

1600 S=144:G0T0 1620 

1610 S=143 

1620 RETURN 

1630 * ##+# AFFICHAGE NAVIRE APRES DEPLAC 
EMENT ET TIR ### 

1640 H=4+B:V=G+A:LOCATE H,V:PRINT * * 
1650 U(AA,BB)=U(A,B):T(AA,BB)=T(A,B):D(A 
A,BB)=D(A,B):U(A,B)=0:T(A,B)=0:D(A,B)=0: 
A=AA:P=BB 

1660 GOSUR 1700:H=4+B:V=3+A:LOCATE H,V 
1670 IF JOU=2 THEN 1690 

1680 SOUND 1,142,1,3:PEN 2:PRINT CHR$(S) 
RETURN 

1690 SOUND 1,142,1,3:PEN 1:PRINT CHR$(S) 
RETURN 

1700 ON T(A,B) G0TO 1710,1720,1730,1740, 
1750, 1760 

1710 S=148:G0T0 1770 

1720 S=147:G0T0 1770 

1730 S=146:G0T0 1770 

1740 S=145:G0T0 1770 

1750 S=144:G0T0 1770 

1760 5=143 

1770 RETURN 

1780 * #*# GRAPHISMES + PRESENTATION ## 

4 

1790 ? ##+# CARTE #44 

1800 PEN 1:X=25:FO0R Y=13 TO 15:LOCATE 7, 

Y:PRINT CHR$(229+4Y)+CHR$(2932+Y) :LOCATE 8 

+ Y+7:PRINT CHR$(187+Y)+CHR$(190+Y) :X=X-1 
LOCATE Y+12,X:PRINT CHR$(222+Y):NEXT 

1810 X=1:FOR Y=23 TO Z4:LOCATE 8,Y:PRINT 
CHR$(225+Y)+CHR$(228+Y) :LOCATE 28,Y-3:P 

RINT CHR$(215+#Y):X=X-1:LOCATE 29,Y-4:FRI 

NT CHR$(241+X) :NEXT 

1820 LOCATE 8,25:PRINT CHR$(250)+CHR$(21 

4) 

1830 FOR X=10 TO {6:LOCATE X,25:PRINT CH 

R$(196+X) :NEXT 

1846 LOCATE 17,24:PRINT CHR$i213) 

1350 LOCATE 18,24:PRINT CHR$(215)+CHR$(2 

10) 

1860 X1=-4:FOR X=20 TO 24 STEP 2:X1=X1+4 

ILOCATE X,24:PRINT CHRS1Z19+X1)+CHR# (221 

+X1):NEXT 

1870 LOCATE 29,18:PRINT CHR#(129) 

1880 LOCATE 30,17:PRINT CHR$(130) 

1890 ‘ OCATE 30,16:PRINT CHR$(240) 

1900 X: “FOR Y=12 TO 15:X=X-1:LOCATE 36, 

V:PRINT  IR$(135+X):NEXT 

1910 FOR 4=17 TO 30:LOCATE X,25:PRINT CH 

R$(214) :NEXT 

1920 FOR X=26 T0 3O:LOCATE X,24:PRINT CH 

R#(214) 2NEXT 

1930 FOR X=27 Tû SO:LOCATE X,23:PRINT CH 


R$(214):NEXT 

1940 FOR X=28 TO 30:LOCATE X.22:PRINT CH 
R$(214) :NEXT 

1950 FOR X=29 TO 3O:LOCATE X,21:PRINT CH 
R$(214):NEXT 

1960 FOR Y=18 TO 20:LOCATE 30,Y:PRINT CH 
R$(214):NEXT 

1970 FOR X=1 TO 16:PEN 1:LOCATE 1,X+9:PR 
INT X:NEXT 

1980 LOCATE 1,25:FOR X=D TO 6:PRINT:NEXT 
1990 PLOT 62,95,3:DRAW 62,354,3:DRAW 480 
.354,3:DRA4 400,95,3:DRAN 62,95,3 

2000 FOR X=1 TO 26:READ N1$:LOCATE 4+X,2 
:PEN 1:PRINT NI$:NEXT 

2010 DATA A,B,C,D,E,F,6,H,1,J,K,L,M,N,0, 
P,Q,R,S,T,U,V,U,X,Y, 2 

2020 ? ### ROSE DES VENTS ### 

2030 PLOT 567,306,3:DRAM 567,333, 3:DRAW 
565,306,3:PLOT 567,333,3:DRAN 569,306,3 
2040 PLOT 567,258,3:DRAM 567,226, 3:DRAH 
565,258,3:PLOT 567,226,3:DRAW 569,258,3 
2050 PLOT 543,280,3:DRAH 514,280, 3:DRAW 
543,278,3:PLOT 514,280,3:DRA4 543,282,3 
2060 PLOT 591,280,3:DRAN 621,280, 3:DRAH 
591,278,3:PLOT 621,280, 3:DRAW 591,282,3 
2070 DEG 

2080 FOR G=D TO 90 

‘2090 ORIGIN 567, 280 

2100 Q=24#C05(G) :M=24#SIN(G) :DRAH Q,M,3: 
DRAW -Q,-M,3:DRAW Q,-M,3:DRAW -Q,M,3 
2110 NEXT 

2120 LOCATE 36,4:PEN 1:PRINT'N":LOCATE 3 
6,12:PRINT"S":LOCATE 32,8:PRINT"0" :LOCAT. 
E 40,8:PRINT'E":LOCATE 32,14:PRINT'Direc 
tion" :LOCATE 36,15:PRINT' du" :LOCATE 35,1 
6:PRINT'Vent" 

2130 WINDOW#2, 32,40, 20, 25 : PAPER#2, 3: CLS# 
2:PEN#2,1:PRINT#2," Nbre'":PRINT#2," 
e":PRINT#2," Tours" 

2140 WINDOH#3,5, 30, 22,25 : PAPER#S, 1 : CLSH3 
2150 RETURN 

2160 * ### DREAK #44 

2170 PEN 1:MODE 2:END 


COMPTAFACIL 


Progiciel de comptabilité générale utilisé depuis 
1982 par des PME, agriculteurs, artisans et libéraux. 
De la saisie au bilan, 8 journaux, 400 comptes 
(7 chiffres), lettrage. Edition des comptes, journaux, 
grand livre, balance, compte de résultat et bilan (pro- 
visoire ou définitif). 

Licence utilisateur 2 000 F. TTC. 

Fonctionne sur AMSTRAD sous CPM 2.2. ou 3.0 


avec 2 lecteurs, version pour 464, 664, 6128 et PCW 
8256. 

COMPTAFACIL existe aussi sur TANDY TRS 80, 
modèles 2, 12, 16, 3, 4, 4P. SMT GOUPIL 3 PC 
et IBM et compatibles. 

DISQUE démontration 300 F. TTC. 
Revendeurs bienvenus. 


B.P. n° 2 St-Philibert 
MER 56470 La Trinité-sur-Mer 
97 55 09 74 
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ANNONCEZ-VOUS ! 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘’généreux dona- 
teurs’’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘’d'origine’”, ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 

Vends AMSTRAD CPC 464 + moniteur + interface Péri- 
tel + lecteur disquette + joystick. Le tout est sous garan- 


tie. J'offre en prime 160 logiciels. Tél.: 91.33.56.73 (B.d.R.) 
Téléphoner entre 10 et 17 h uniquement. 


Vends pour AMSTRAD CPC 464 K7 de jeux. Offre sur Paris 
et banlieue. M. SAGNIERE, 5 allée des Tilleuls, 77360 VAI- 
RES, tél.: (6) 008.37.96. 


Cherche possesseurs d'AMSTRAD CPC 664 pour 
échanges logiciels (jeux, utilitaires) et astuces. 
Daniel DELANNOY, 58 av. Kennedy, 59800 LILLE, 
tél.: 20.52.24.76. ; 


CPC 6128 cherche échange progs, trucs et astu- 
ces sur K7 ou disquettes. Christian DUFETELLE, 6 
rue Fremiet, 76360 BARENTIN. 


Vends imprimante AMSTRAD DMP1 + interface, le tout 
est en bon état : 1900 F. Tél.: 61.47.20.14 après 20 H. 


Enseignant LEPA propose prog. gestion agricole - grapni- 
ques/gestion - climat. G. FAUTHOUX, Esclassan, 31240 
MASSEUBE, tél.: 62.66.02.21. 


Vends ou échange logiciels de très bonne qualité pour AMS- 
TRAD CPC 464. Yannick TERTRE, 58 rue de Clairville, 
35510 CESSON, tél.: 99.00.34.52. 


Vends ou échange logiciels pour AMSTRAD 464 en pos- 
sède une trentaine. Contacter Thierry FREZARD, tél.: 
27.65.72.35, 59 HAUTMONT. 


MATH, STAT, GESTION. Echange ou cède utilitaires sur 
cassettes pour CPC 464 : programmation linéaire, test sur 
moyennes, rentabilité investissement, tri bétique, ges- 
tion fichier, gestion boursière, etc. Claude DANIS, 13 rue 
de la République, 42000 ST. ETIENNE, tél.: 77.21.36.06. 


AMSTRAD échange très nombreux logiciels. J.-F. CHAR- 
DON, 8 rue Bernard de Clairvaux, 75003 Paris, tél.: (1) 
52.77.25.49. 


Possesseur d’un CPC 464 cherche correspondants pour 
échanges de programmes, trucs et astuces. Stéphane GRE- 
PINET, 88270 VALLEROY. 


Vends CPC 464 coul. + imprim. MT 80 + 8 jeux + trait. 
texte pro + ass. désass. débug. + Firmware : 6000 F. Tél.: 
(1) 47.82.46.83, 92 LA GARENNE. 


Recherche autres Amstradistes sur Pays Basque pour échan- 
ges, trucs et astuces. Dominique ARBIEU, Maison Txantxan- 
gorri, 64210 BIDART. 


Vends imprimante Amstrad DMP 1 neuve sous-garantie 
cause double emploi : 2000 F. Pascal JOLLY, tél.: 
34.15.96.28 (Val d'Oise). 


CPC 464 vend jeux ou utilitaires de 10 à 20 F (l'unité). 
Vends programme math pour 1", terminale (équations, inté- 
grale, dérivée, extremums, étude fonction) : 50 F. Tél.: 
861.48.97. M. THIERRY. 


Echange programmes pour AMSTRAD CPC 464. 
Michel LE MOIGNE, 128 Bd Galliéni, 92390 VIL- 
LENEUVE LA GARENNE, tél.: (1) 47.94.20.93 
après 17 heures. 


Je recherche possesseur lecteur disquettes Amstrad en vue 
echange utilitaires — gestion, stocks, fichiers, tableurs, 
comptabilité, paies, factures, etc. Je vends imprimante 
DMP 1 Amstrad sous garantie, prix intéressant. Possibilité 
échange de jeux. Dominique BLANDIN, 6 place du Pré Botin 
A636, Champbenoist, 77160 PROVINS, tél.: 60.67.60.19. 


Vends 464 monochrome + 8 jeux + 90 utilitaires + joys- 
tick + 2 livres + 5 cassettes vierges : 2800 F. Michel 
VIDAL, 7 rue du Languedoc, 15000 AVRILLAL, tél.: 
71.63.51.28. 


Amstrad 664 cherche contacts pour échange progs, trucs 
et bidouilles. T. BLANC, Les Orgues, 04500 RIEZ, tél.: 
92.74.67.26. 


AFFAIRE ! Vends micro-ordinateur LASER 
200 (500 F) + RAM 64 k (300 F) + joysticks 
et progs (200 F). DATA recorder compatible 
CPC 664 (300 F). Tél.: (48) 71.49.85. 


Vends AMSTRAD CPC 464 couleur + logiciels (50) + 
livres : 3400 F sous garantie. Marc MANCEAU, Chasseliè- 
vre Crottet, 01290 PONT DE VEYLE, tél.: 85.31.62.28. 


Débutant AMSTRAD 464 cherche (achat-échange) casset- 
n Ju cu utilitaires. D. SALVERT, Bois-Rocmer, 16370 
HERVES. 


Possesseur CPC 464 cherche correspondants pour échan- . 
ges logiciels + divers. Gérard PEDEZERT, Rue J. Duclos, 
64340 BOUCAU, tél.: 59.64.66.49. 


Vends ou échange Fighter Pilot et Mission Delta. 
Vends imprimante GP 500 : 2000 F. Pascal RIC- 
CHI, 11 rue Joseph le Brix, 73000 CHAMBERY. 


Vends AMSTRAD CPC 464 + moniteur vert + 
adaptateur couleur MP1 + joystick, état neuf (sous 
garantie) : 2200 F. Tél.: 42.98.44.32 (H.B.). 


Vends CPC 464 couleur (01/85) + 40 jeux + 7 
utilitaires + livres (trucs et astuces, jeux d'ac- 
tion...) : 3700 F. Tél.: (1) 43.88.37.22. P. FOR- 
TUNE, 10 allée de l’Aqueduc, appt. 219, 93390 
CLICHY SOUS BOIS. 


Vends AMSTRAD CPC 464 Moniteur couleur avec 
pied orientable, joystick, crayon optique, meuble 
fonctionnel, nombreux accessoires, 40 logiciels 
pour le dessin, l'apprentissage du Basic et les jeux : 
5000 F. Achille CARBET, 10 square des Sorbiers, 
94160 ST. MANDE, tél.: 808.79.03. 


Vends Battle Midway : 110 F. Electro Freddy : 
80 F. Roland Time :80 F. Forest Worlds End : 75 F. 
M. FERRER, 07170 VILLENEUVE DE BERG. 


Vends AMSTRAD CPC 664 avec 9 mois de garan- 
tie + joystick + nombreux logiciels, valeur 8190 F, 
vendu 6000 F. Tél.: 622.27.32 (Paris). 


R.A.M. Club Amstrad, Rue Ernest Reyer, 83400 
HYERES, tél.: 94.57.72.84 et 94.38.57.37, réu- 
nion le mardi à 18 h et le vendredi à 20 h. Cotisa- 
tion annuelle : 400 F. 


Vends AMSTRAD 464 + lecteur disquettes + 
imprimante OKI 82 + interface couleur + logiciels 
jeux et utilitaires : 6000 F. M. HERVY, tél.: 
97.60.01.57. 


Vends AMSTRAD CPC 464 couleur + disquette + 
joystick + 160 programmes : 6000 F. Pierre AVA- 
ZERI, Ch. du Merlan, bat. 14, Les Hirondelles, 
13013 MARSEILLE, tél.: 91.98.40.90. 


Traduis toute documentation publiée en anglais. O. 
MESSIANT, 6 a. des Peupliers, Morbecque, 59190 
MAZEBROUCXK, tél.: 28.41.73.27. 
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Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, 10 Avenue du Général de Gaulle, 35170 BRUZ 


LU A RAS de PA VUE CU DA ME NT LT 4  renge / VA GR nee 7 DA éétces  CRS ER ENS A EN DE ET 
les petites annonces et les messages 


L'AVENTURE HISTORIQUE 


MONITSEGUR Pour AMSTRAD est disponible chez votre revendeur 
Bon de commande à retourner à NORSOFT - 49, rue des Rosiers, 14000 CAEN - Tél. 31.86.56.69 
Désire recevoir 1 Montségur _____________[T140F 
OT RSS ES RSR LE 9 PS VEQNN RE RE ET OSF 
POP FPIOY Dox CI FO00F 
FAQ SE SE FR RIOE 


Nom 
Prénom 


Chèque à l'ordre de OPUS (Ajoutez 20 F de port) Space Wolf... 0 }HO0F 


IZLARD CRÉATIONS 99.31.64.73 


Vends AMSTRAD CPC 464 couleur + joy- 
stick + jeux + ass.-désass. + progs. 
perso. : 3600 F (févier 1985). Tél.: (6) 
016.87.46, Laurent THAREAU, 5 rue des 
Fleurs, 91246 ST. MICHEL/ORGE. 


Achète ou échange programmes sur AMS- 
TRAD. Cherche Amstradistes dans la région 
de Metz. Vends ZX Spectrum 48 ko (06/86) 
+ 58 progs. Vincent BASSI, 12 rue des 
Roses, 57000 METZ, tél.: (8) 765.59.00. 


Adil Belaouni cherche personnes possédant 
Amstrad CPC 464 ou 664 pour échanges 
programmes et idées. Tél.: (50) 92.65.55 le 
soir au adresser liste Av. 44b, rue des Vignes, 
74240 GAILLARD. 


Vends ou échange 4 super logiciels en K7 
tous neufs pour AMSTRAD CPC 464 ou 664. 
Roland on the ropes : 80 F. Galaxia : 60 F. 
Ghosbuster : 100 F. Sorcery : 100 F. LEE, 
La Solidarité Chemin de la Bigotte, Bat. N° 
24, Appt. 957, 13015 MARSEILLE, tél.: (91) 
51.86.03. 


Je cède, suite à achat lecteur de disquettes, 
les programme suivants qui sont sur casset- 
tes : Initiation au Basic AMSTRAD : premiers 
pas SOFT 411 (2 K7). Tableur Easi-Amscalc : 
SOFT 453 (2 K7). Budget familial de chez 
Sprites. Tableur ‘’ Amcalc’’ de chez SDI. Ges- 
tion fichier ‘’ Ambase’’ de chez SDI. Program- 
mes éducatifs : SOFT 405 : les lettre magi- 
ques. SOFT 406 : l’ardoise magique. SOFT 
407 : L’horloger Un. SOFT 444 : Electro 
Freddy. Programmes jeux : SOFT 112 : Har- 
rier Attack. SOFT 114 : Sultan’s Maze. SOFT 
115 : Oh Mumm. Je recherche tout logiciel 
de gestion sur disquette de préférence. 
Contact avec possesseurs lecteur de disquet- 
tes. Dominique BLANDIN, 6 place du Pré Bot- 
tin, À 636, Chambpenoist, 77160 PROVINS. 


Cherche correspondant(es), français et étran- 
gers pour échange de programmes, trucs, 
astuces, etc. Vends aussi cause double 
emploi un AMSTRAD CPC 464 + imp. DMP 
1 (Amstrad) + 180 prgs. Vente séparée pos- 
sible. Daniel FREY, 8 imp. des Hirondelles, 
67110 REICHSHOFFEN, tél.: (88) 09.70.79 
(après 19 h). 


Vends pour ZX81,. cause acquisition autre 
matériel, assembleur + désassembleur + 
doc. Microconcept (500 F). Nombreux livres 
sur ZX81 à moitié prix. Tél.: (1) 772.92.18 
(381) HB. 


Vends ZX81 + 16 k + clavier performant 
+ K7 dejeux + touche RAZ + touche chan- 
gement de couleurs + gros stock de pro- 
grammes 1 et 16 k + alimentation + cor- 
don TV + cordon K7 + documentation Basic 
complète + documentation sur ZX81. Le 
tout pour 2500 F ferme. Martial LIOGIER, 67 
rue du Buzenval, Centre Seidac, 78800 
HOUILLES. 


Echange nombreux programmes pour CPC 
464 + documentations + traductions. 
Christophe WAROUX, 1 rue Latérale, 62470 
COLONNE RICOUART, tél.: (217 52.57.97. 
Réunion du club AMSTRAD au siège du Club 
Informatique Bruaysien au 41 rue Louis 
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Dusart à Bruay en Artois (62), les vendredis 
de 18 h à 20 h, les samedi après-midis et 
dimanche matins. 


Achète logiciels AMSTRAD (jeux, utilitaires). 
à un prix modéré. Didier HON, Rue St. Nico- 
las, 71490 Couches. Tél.: (85) 49.60.65 
(week-end). 


Achète logiciels K7 pour CPC 464 jeux utili- 
taires, éducatifs, professionnels pour créer 
logithèque. Ph. DEMOULE, Sauvessanges, 
63840 VIVEROLS. 


Vends, pour AMSTRAD CPC 464, nombreux 
logiciels (Harr:er Attack, Rally Il, Flight Path 
737, etc.) pour un prix très intéressant. Jean 
Paul SANCHEZ, 5, av. Fraigière, 84000 Avi- 
gnon. Tél.: 90.87.26.01 HR. 


Vends AMSTRAD CPC 464, moniteur 
monochrome, sous garantie + traitement de 
texte Amsword : 2200 F. Vends contrôleur 
de lecteur de disquettes AMSTRAD : 350F. 
Vends 1° lecteur de disquettes (avec 
contrôleur), sous garantie : 2100 F. Vends 
imprimante Seikosha GP 80 : 890 F. Tél.: 
978.95.15 après 19 h. 


Vends ZX81 + 16 k + clavier mécanique + 
interface RTTY avec logiciel + mini K7 : 
1000 F. Yaesu FT 301D.(équipé 11 m) + FC 
301 + micro de table + ant. 3 él. Hy-gain 
(10 m) avec rotor, coax., et câbles, le tout : 
5500 F. AMSTRAD CPC 464 moniteur vert : 
2300 F. M. ROSSIGNOL, Domaine de Rique- 
bonne, 06220 VALLAURIS, tél.: (93) 
61.73.05 HB. 


Vends AMSTRAD CPC 464 moniteur 
monochrome vert + adaptateur Péritel + 
joystick + 15 logiciels + programmes. F. 
BARBANCHON, tél.: (31) 22.90.23. 


Vends TI99/4A + Péritel + Basic étendu + 
câble magnétophone + nombreux jeux en 2 
volumes. Le tout 2000 F. Tél.: (9) 
78.67.03, le mardi de 9 h à 20h. 


Vends AMSTRAD CPC 464 couleur + joys- 
tick : 3600 F. Tél.: (1) 260.33.00 poste 
57.52 de 9hà 18h. 


Vends CPC 6128 couleur + garantie : 
5490 F (valeur 5990 F), tbe, urgent. D. 
TENNE, 20 av. Paul APPEL, 75014 Paris, tél.: 
(1) 541.20.61. 


Vends AMSTRAD CPC 464 moniteur 
monochrome vert sous garantie + jeux : 
2200 F. Dominique GUILHEM, 92800 
PUTEAUX, tél.: 773.77.91. 


Vends AMSTRAD 464 spécial OM mon. vert 
peu servi, s. garantie avec 1 macro PG OM 
23 k qui permet : E.R RTTY, EME, P. Osca- 
r TPS réel, C. Locator : 2450 F. F10W, 18 
Grande Rue, 54420 SAULXURES LES 
NANCY, tél.: (8) 320.46.23 après 19 h. 


Cherche personnes possédant le CPC 464 et 
664 pour échange de programmes d’astu- 
ces... Envoyer vos listes d'échanges, répon- 
ses assurées. Eric PRAT, 1 allée Claude 
Debussy, 45390 PUISEAUX. 


Vends VIC 20 PAL + lecteur K7 VIC 1530 
+ jeux (Blitz, Othello, Star battle, etc.) + 
livres : 1800 F (à débattre). T. LEVY, 313 rue 


Lecourbe, 75015 PARIS, tél.: 558.10.44. 
Vends 100 magazines infor. pour 900 F, état 
neuf, récents (83-856) (Soft & Micro, Tilt, OI, 
etc.). M. LAPLANCHE, 87 Av. A. Briand, 
92120 MONTROUGE. 


Echange programmes AMSTRAD CPC 464. 
Cyril CARON, 106 rue de la République, 
39400 MOREZ. Joindre son numéro de télé- 
phone. 


Vends TRS 80, modèle 1, niveau 2 complet 
avec interface (doubleur de densité et RS 232 
C) + moniteur N/B + 3 drives 5 1/4 + ali- 
mentation séparée et alimentation pour deux 
drives. Basic, Fortran, Pascal, Logo, 
ASM/Z80, 4 DOS + nombreux programmes 
: 7000 F à débattre. M. Lucien MILLOT, 29, 
allée du Clog Gagneur, 93250 NOISY LE 
GRAND, tél.: 304.03.07 après 20 h ou 
784.74.79, poste 41/422. 

Cherche Amstradiste pour échanges de logiciels et 
trucs (plus de 45 programmes en L.M.). J.F. 
PICART, 22 av. de Champan, 13600 LACIOTAT. 


Achète ou échange programmes pour CPC 464. 
Ecrire à Jérôme RAFFARD, 6 rue d'’Annel, 60200 
CLARO!X, tél.: 44.83.36.07. 

Egarés du dédale du Kikekankoi, n’abandon- 
nez pas | Offre 20 F rens. indisp. pr. conti- 
nuer aventure. PERROUD, Rive de l'Oie, 
25300 PONTARLIER. 


Vends monit. couleur CPC 464 neuf : 
1600 F. Fr. GOURGUES, 1 rue de l'Eglise, 
42400 ST. CHAMOND , tél.: 77.22.91.68 et 
77.59.15.30. 


Vends cause double emploi imprimante Laser 
PP50 coul. état neuf, juin 85, garantie : 
900 F. P. LEONARD, 95b rue de l'Aigle, 
92250 LA GARENNE COLOMBES. 


Vends micro-ordinateur SINCLAIR ZX81, cla- 
vier ABS + extension de mémoire 16 k 
RAM : 600 F. Téléviseur N/B Radiola 
210-72 ; 31 cm portable sous garantie 1 an : 
600 F. Magnétophone à cassettes Thomson 
MK 142T : 350 F. Achats réalisés il y a un 
an. Le tout en parfait état. Ou l’ensemble : 
15500 F. G. MALET, BP 29, 94267 FRES- 
NES Cédex, tél.: (1) 668.10.77 avant 12h. 


Vends AMSTRAD CPC 664 + moniteur couleur 
(juillet 85) + cordon magnétophone + livres, docu- 
mentation, programmes + 10 disquettes (jeux, lan- 
gage, gestion, déprotecteur, accès direct) : 6500 F. 
Tél.: (1) 39.46.58.11. 


Vends logiciel sur CPC 464 K7 (Starion : 100 F, 
Rally 2 : 125 F, Sorcery : 80 F, etc.). J. PARISOT, 
Bessey les Citeaux, 21110 GENLIS. 


Prisonnier cherche pour AMSTRAD 464 
trucs, astuces, aides, contacts, listings, etc. 
Tout contact bienvenu. Egalement échange 
programmes. LANDRY - 4108-B/349, 10 
quai de la Courtille, 77011 MELUN. 


Vends Amstrad CPC 464 couleur + joystick 
+ jeux = ass.-désass. + prog. perso : 
3600 F (février 1985). Tél.: (6) 016.87.46, 
Laurent THAREAU, 5 rue des Fleurs, 91240 
ST. MICHEL/ORGE. 


la nouvelle super-production Cobra Soft 


MEURTRES SUR L ATLANTIQUE 


Après Le succès extraordinaire de "MEURTRE A GRANDE VITESSE", 
logiciel qui a étonné et séduit L'ensemble de La presse #pé- 
cialisée par sa qualité et son originalité, COBRA SOFT va 
encore plus Loin et vous inez d'étonnement en étonnement avec 
Le nouveau Logiciel écrit par Bertrand BROCARD : 


MEURTRES SUR L'ATLANTIQUE 


1938. Tandis que £a situation politique 4'aggnave en Europe, 
au Havre, £e plus grand et Le plus £uxueux paquebot du monde 
appareille pour New-York. À son bond, une clientèle fontunée 
et insouciante... et pourtant un drame va 4e jouer pendant 

La traversée. Vous vous trouverez ainsi projeté au coeur de 
La plus incroyable histoire d'espionnage qui permit aux 
alliés de gagner Le seconde guerre mondiale 5 ans plus tand. 
Ce Logiciel est présenté sous La fonme d'un véritable dossier 
{oilé contenant 2 cassettes (plusieurs programmes et enregis- 
tnements), photos, fac-similé de journal, indices et un as- 
sontiment d'objets divers et mystérieux ! 


Pour Amstrad : cassette 220 F - Disquette 279 F. 
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BON DE COMMANDE - MEURTRES SUR L'ATLANTIQUE - AMSTRAD 
cassette - disquette (rayer la mention inutile) 

à l'adresse suivante : 
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rue de Léningrad 75008 Paris Tél.:(1)387.27.27+ ERE INFORMATIQUE 


